Fehler bei Trimleft

[julchen]

Hallo,

ich habe einen Text, wo in jeder leeren Zeile am Zeilenanfang ein Leerzeichen steht.
Das möchte ich gerne löschen.
Die Leerzeile soll aber bleiben.

Der Code löscht mir aber den kompletten Text:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i: integer   ;
begin
    for i := Memo1.Lines.Count - 1 downto 0 do begin
      if (Memo1.Lines[i] = ' ') then begin
      Memo1.Text := Trimleft(' ');
      end;
    end;
end;

Vielleicht könnt ihr mir ja helfen.
VG, Julia