Trim dauert bis zu 5 minuten....Benötige schnelle Lösung

[Landogar-Garuno]

Hallo

habe mal wieder ein problem

beim laden von einer 5MB text datei sollen leer zeilen entfernt werden.

benutze derzeit

Delphi-Quellcode:

    for i := Memo1.Lines.Count - 1 downto 0 do
    begin
    if Trim(Memo1.Lines[i]) = '' then
    Memo1.Lines.Delete(d);
    Memo1.Lines[i] := Trim(Memo1.Lines[i]);
    end;

oder

Delphi-Quellcode:

 Sl:=TStringlist.Create;
  SL.LoadFromFile(OpenDialog1.Filename);
   for i := SL.Count - 1 downTo 0 do
   if SL[i] = '' then
   begin
 //  ist etwas schneller...

problem ist, es dauert einfach zu lange... es dauert ca. 5 minuten

es gibt doch bestimmt ein schnellere Möglichkeit