procedure SaveToField(FField: TBlobField; Form: TComponent);
var
 Stream: TBlobStream;
 FormName: string;
begin
 FormName := Copy(Form.ClassName, 2, 99);
 Stream := TBlobStream.Create(FField, bmWrite);
 try
 Stream.WriteComponentRes(FormName, Form);
 finally
 Stream.Free;
 end;
end;

procedure LoadFromField(FField: TBlobField; Form: TComponent);
var
 Stream: TBlobStream;
 I: integer;
begin
 try
 Stream := TBlobStream.Create(FField, bmRead);
 try
 {удаляем все компоненты}
 for I := Form.ComponentCount - 1 downto 0 do
 Form.Components[I].Free;
 Stream.ReadComponentRes(Form);
 finally
 Stream.Free;
 end;
 except
 on EFOpenError do
 {ничего};
 end;
end;