Példánkat próbáljuk ki, a form alapvető méreteinek a kimentésével uses Inifiles ... procedure TForm1.FormCreate(Sender: TObject); var Ini: TIniFile; dir:string; begin dir:=ExtractFilePath(Application.ExeName); Ini := TIniFile.Create(dir + 'Ablak.ini'); try Left := Ini.ReadInteger('Window', 'Left', Left); Top := Ini.ReadInteger('Window', 'Top', Top); Width := Ini.ReadInteger('Window', 'Width', Width); Height := Ini.ReadInteger('Window', 'Height', Height); Edit1.Text:=Ini.ReadString('Window', 'Szoveg','Eredeti'); CheckBox1.Checked:=Ini.ReadBool('Window', 'Kijeloles',true); except // end; Ini.Free; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var Ini: TIniFile; dir:string; begin dir:=ExtractFilePath(Application.ExeName); Ini := TIniFile.Create(dir + 'Ablak.ini'); try Ini.WriteInteger('Window', 'Left', Left); Ini.WriteInteger('Window', 'Top', Top); Ini.WriteInteger('Window', 'Width', Width); Ini.WriteInteger('Window', 'Height', Height); Ini.WriteString('Window', 'Szoveg', Edit1.text); Ini.WriteBool('Window', 'Kijeloles',CheckBox1.Checked); except // end; Ini.Free; end; Megjegyzés: Mit is csinálunk? Width := Ini.ReadInteger('Window', 'Width', Width); integer:=ini.readinteger(adatcsoport_neve , adat_megnevezése , adat_ha_még_nincs_érték);