Listenindex überschritten bei Count

[aaaaaaaaaa_10]

Hallo,

Ich habe folgendes vor:
Ich erstelle eine Datei, welche sich die Strings aus einer anderen Datei holt. Da ich aber nur die erste und letzte Zeile brauche, wollte ich den Rest einfach wieder löschen. Nun hab ich aber folgenden Feher:

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 := 2 to F.Count-1 do   [b]// Fehler: ListenIndex überschreitet das Maximum[5][/b]
    begin
    F.Delete(i);
    end;
     F.SaveToFile(DatName);
  finally
    F.Free;
  end;
end;

Was ist hier verkehrt?