问如何保存和加载TFrame内容？

EN

public
  constructor Create(AOwner: TComponent); override; 
  procedure BeforeDestruction; override; 

var
  PreservePath: String;

constructor TMyForm.Create(AOwner: TComponent);
begin   
  PreservePath := ExtractFilePath(Application.ExeName) +
    'Preserve';
  if not DirectoryExists(PreservePath) then
    CreateDir(PreservePath);
    PreservePath := PreservePath + '\';
  if FileExists(PreservePath + ClassName + '.sav') then
  begin
    CreateNew(AOwner, 0);
    with TFileStream.Create(PreservePath + ClassName + '.sav',
                            fmOpenRead or fmShareDenyWrite) do
    try
      ReadComponent(Self);
    finally
      Free;
    end;
  end;
end;

procedure TMyForm.BeforeDestruction;
begin
 inherited;
    with TFileStream.Create(PreservePath + ClassName + '.sav',
                            fmCreate) do
  try
    WriteComponent(self);
  finally
    Free;
  end;
end;