Hilfe bei Stringlist.delete

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
var 
SL :TStringList; 
i :Integer; 
begin 
  SL := TStringList.Create; 
  SL.LoadFromFile('StringList.tmp'); 
  For i := SL.Count-1 downto 0 do  // hier das ; gelöscht
    If Length(SL[i]) < 2 then  // hier auch
     SL.Delete(i); 
  RichEdit2.Text := SL.Text; 
  SL.Free; 
end;]

Grüße
Klaus