Listenindex überschritten bei Count

[HeikoAdams]

Probier es mal damit:

Delphi-Quellcode:

procedure TMomFiles.DreiSekDateiFuellen(const Filename: string);
var
  F: TStringList;
  LogDatei, DatName : String;
  i : integer;

begin
  DatName := extractfilepath(application.exename)+'Mom3sek_'+Kennung+'.txt';
  F := TStringList.Create;
  try
    LogDatei := extractfilepath(application.exename)+'mom'+Kennung+'.log';
    F.LoadFromFile(Logdatei);
    for i := F.Count-1 downto 2 do
    begin
    F.Delete(i);
    end;
     F.SaveToFile(DatName);
  finally
    F.Free;
  end;
end;