Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Сохранение TForm и её свойств в BLOB-поле

01.01.2007
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;

Взято с https://delphiworld.narod.ru