procedure TForm1.FormCreate(Sender: TObject);
var winIni: TIniFile;
begin
  winIni := TIniFile.Create('.\WIN.INI');//调用的文件名
  Form1.Height:=winIni.ReadInteger('窗体','高度',400);
  Form1.Width:=winIni.ReadInteger('窗体','宽度',600);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var winIni: TIniFile;
begin
  winIni := TIniFile.Create('.\WIN.INI');//调用的文件名
  winIni.WriteInteger('窗体','高度',Form1.Height);
  winIni.WriteInteger('窗体','宽度',Form1.Width);
end;
//delphi/4887