Werte speichern und abrufen?

[Siggy]

Mh das hab ich doch. Glaub ich zumindest.
Deswegen hier der komplette Code:

Delphi-Quellcode:

var
  Form4: TForm4;
  ini: Tinifile;
  Speicherung1 : string;
  Spdate1 : TDate;
implementation

{$R *.dfm}

procedure TForm4.FormShow(Sender: TObject);
begin
ini := Tinifile.create ('F:\Delphi\BMI\inispeicher.ini');
try
  Speicherung1 := ini.ReadString('BMI-Wert1','Speicherung 1','');
  Spdate1 := ini.ReadDate('Datum1','Spdate 1',date);
  Label1.Caption := ((Speicherung1));
  Label2.Caption := ((SpDate1));
  finally
  ini.Free;
end;


end;

end.