Die ganze Sache sollte wohl eher so aussehen...
Delphi-Quellcode:
var
Form1: TForm1;
Ini : TIniFile;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Test.Ini');
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Ini.Free;
end;
procedure TForm1.SaveClick(Sender: TObject);
begin
Ini.WriteBool('Editor', 'DirToUSB', CheckBox.Checked);
end;
procedure TForm1.LoadClick(Sender: TObject);
begin
CheckBox.Checked:=Ini.ReadBool('Editor', 'DirToUSB', True);
end;
end.
Hier mal noch ein Tutorial für dich
Ini Tutorial