TComboBox behält nach Neustart keine neuen Einträge

[sx2008]

Delphi-Quellcode:

// Hilfsfunktion weil man Dateinamen mehrfach braucht
function ComboBoxFilename:string;
begin
  Result := ExtractFilePath(ParamStr(0))+ '\combo1.txt';
end;
....

// speichern
Combobox1.Items.SaveToFile(ComboBoxFilename);
....

// laden beim Erzeugen des Formulars
if FileExists(ComboBoxFilename) then
  Combobox1.Items.LoadFromFile(ComboBoxFilename);