.ini wird nicht geladen

[tinibeenie]

Hallo zusammen!

Ich möchte bestimmte Angaben aus Edits speichern und beim nächsten Laden wieder anzeigen lassen. Leider habe ich mit Inis noch nicht so viel Erfahrung. Rausgefunden hab ich immerhin schonmal, dass die Daten richtig in der Ini gespeichert werden, nur werden sie beim Öffnen des Programms nicht geladen oder stehen zumindest nicht in den Edits drin. Also liegt der Fehler wahrscheinlich in der Create-Procedure.

Hier der Code:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
  var IniDat:TIniFile;
begin
  IniDat:=TIniFile.Create('.\Text.Ini');
  with IniDat do
  begin
    WriteString('Text', 'Edit1', Edit1.Text);
    WriteString('Text', 'Edit2', Edit2.Text);
    WriteString('Text', 'Edit3', Edit3.Text);
    WriteString('Text', 'Edit4', Edit4.Text);
    WriteString('Text', 'Edit5', Edit5.Text);
    WriteString('Text', 'Edit6', Edit6.Text);
    WriteString('Text', 'Edit7', Edit7.Text);
    WriteString('Text', 'Edit8', Edit8.Text);
    WriteString('Text', 'Edit9', Edit9.Text);
    WriteString('Text', 'Edit10', Edit10.Text);
    WriteString('Text', 'Edit11', Edit11.Text);
    WriteString('Text', 'Edit12', Edit12.Text);
    WriteString('Text', 'Edit13', Edit13.Text);
    WriteString('Text', 'Edit14', Edit14.Text);
    WriteString('Text', 'Edit15', Edit15.Text);
    WriteString('Text', 'Edit16', Edit16.Text);
    WriteString('Text', 'Edit17', Edit17.Text);
    WriteString('Text', 'Edit18', Edit18.Text);
    WriteString('Text', 'Edit19', Edit19.Text);
  end;
  IniDat.Free;
end;

und

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
  var IniDat:TIniFile;
begin
  IniDat:=TIniFile.Create('.\Text.Ini');
  with IniDat do
  begin
    Edit1.Text := ReadString('Text', 'Edit1', Edit1.Text);
    Edit2.Text := ReadString('Text', 'Edit2', Edit2.Text);
    Edit3.Text := ReadString('Text', 'Edit3', Edit3.Text);
    Edit4.Text := ReadString('Text', 'Edit4', Edit4.Text);
    Edit5.Text := ReadString('Text', 'Edit5', Edit5.Text);
    Edit6.Text := ReadString('Text', 'Edit6', Edit6.Text);
    Edit7.Text := ReadString('Text', 'Edit7', Edit7.Text);
    Edit8.Text := ReadString('Text', 'Edit8', Edit8.Text);
    Edit9.Text := ReadString('Text', 'Edit9', Edit9.Text);
    Edit10.Text := ReadString('Text', 'Edit10', Edit10.Text);
    Edit11.Text := ReadString('Text', 'Edit11', Edit11.Text);
    Edit12.Text := ReadString('Text', 'Edit12', Edit12.Text);
    Edit13.Text := ReadString('Text', 'Edit13', Edit13.Text);
    Edit14.Text := ReadString('Text', 'Edit14', Edit14.Text);
    Edit15.Text := ReadString('Text', 'Edit15', Edit15.Text);
    Edit16.Text := ReadString('Text', 'Edit16', Edit16.Text);
    Edit17.Text := ReadString('Text', 'Edit17', Edit17.Text);
    Edit18.Text := ReadString('Text', 'Edit18', Edit18.Text);
    Edit19.Text := ReadString('Text', 'Edit19', Edit19.Text);
  end;
  IniDat.Free;
end;

Kann mir jemand sagen, was ich da falsch gemacht habe? Irgendwie finde ich den Fehler nicht.

Vielen Dank schonmal!