Speichern Procedure funzt sporadisch :(

[glkgereon]

Hi

ich speichere im OnClose meiner Anwendung den Inhalt eines ValueListEditors...
doch die änderungen sind beim nächsten start (ja, ich lade wieder) wieder weg.

irgendwie funzt das speichern nur für die cells in col 0 und und die erste reihe...

hier der Code:

Delphi-Quellcode:

procedure TForm_Settings.VLELoad();
var I: Integer;
    Temp: TStringList;
begin
  //leeren
  VLEClear;
  //Laden
  Temp:=TStringList.Create;
  Temp.LoadFromFile(CAP_APP);
    for i:=0 to (Temp.Count div 2)-1 do
      VLE_Caps_Apps.InsertRow(Temp[i*2],Temp[i*2+1],True);
  Temp.Free;
end;

procedure TForm_Settings.VLESave;
var I: Integer;
    Temp: TStringList;
begin
  Temp:=TStringList.Create;
  Temp.Clear;
  with VLE_Caps_Apps do
    for i:=1 to RowCount-1 do
      begin
      Temp.Add(Cells[0,i]);
      Temp.Add(Cells[1,i]);
      end;
  Temp.SaveToFile(CAP_APP);
  Temp.Free;
end;