1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormClose(Sender: TObject);
var
INIDatei: TIniFile;
begin
INIDatei := TIniFile.Create('dateiname.ini');
 with INIDatei do
  begin
  WriteString('BlaBla', 'TelNr', edit1.Text);
  WriteString('BlaBla', 'Alter', edit2.Text);
 end;
 INIDatei.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.FormCreate
var
  Ini: TIniFile;
begin
ini := NIL;
  try
    Ini:=TIniFile.Create('dateiname.ini');
  edit1.Text:=  Ini.ReadString('BlaBla','TelNr','edit1.Text');
  edit2.Text:=  Ini.ReadString('BlaBla','Alter','edit2.Text');
  finally
    Ini.Free;
  end;
end;