Problem mit ini dateien

[Luckie]

Eine gescheite Codeformatierung ist die halbe Miete:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
var 
  prodl : TIniFile; 
begin 
  prodl := TIniFile.Create('produktliste.ini'); 
  try
    try
      prodl.WriteString ('cpu', 'name', cpu_amd_name[1] ); 
    except
      on E: Exception do
        ShowMessage(E.Message);
    end;
  finally
    prodl.Free; 
  end;
end;

Das mal exemplarisch. Ansonsten sollte dein Code auch schon funktionieren, wenn denn dein Windows in der Lage ist und errät in welchem Verzeichnis, sich die Ini-Datei befindet. Ich gehe mal davon aus, sie soll im Anwendungsverzeichnis liegen. Dann sollte das so aussehen:
prodl := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'produktliste.ini');