Problem mit Code

[dizzy]

Delphi-Quellcode:

procedure TForm1.Neu1Click(Sender: TObject);
var ini: TiniFile;
begin
 if not OpenDialog1.Execute then //nix
 else
  begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Einstellungen\'+'config.dat');
   try
     with ini do
      begin
        WriteString('FILENAME', 'SpeedButton1', OpenDialog1.FileName);
      end;
   finally
    Free; // <------
  end;
end;
end;

Dein "Free" steht ausserhalb des "with ini do"-Blocks, und somit steht dort eigentlich "self.Free". "self" ist in diesem Fall "TForm1"
Einfach das "Free;" durch "ini.Free;" ersetzen.