Пробвай това :

procedure TDynaForm.SaveToFile(AResFile: TFileName);
begin
WriteComponentResFile(AResFile, Self);
end;

procedure TDynaForm.RestoreFromFile(AResFile: TFileName);
var
Stream: TFileStream;
I: integer;
begin
try
Stream := TFileStream.Create(AResFile, fmOpenRead);
try
{delete all components}
for I := ComponentCount - 1 downto 0 do
Components.Free;
Stream.ReadComponentRes(Self);
finally
Stream.Free;
end;
except
on EFOpenError do {nothing};
end;
end;

---
Е т'ва е живот!