[roamer]

Может поможет:

Код:

procedure TForm1.Save_Me2;
var
  ms: TMemoryStream;
  fs: TFileStream;
begin
  fs := TFileStream.Create('C:\987.222', fmCreate or fmOpenWrite);
  ms := TMemoryStream.Create;
  try
    ms.WriteComponent(self);
    ms.Seek(0, soFromBeginning);
    ObjectBinaryToText(ms, fs);
  finally
    ms.Free;
    fs.free;
  end;
end;

Нашел здесь: http://www.delphimaster.ru/articles/frames/index.html