TRichEdit - Leerzeichen vor Absatzende entfernen

[angos]

moin moin,

ich kann das problem nicht nachvollziehen. Ich nutze folgende Prozedur:

Delphi-Quellcode:

procedure RemoveBlanks(Richedit: TRichedit);
var i,c: integer;
begin
  for i := 0 to RichEdit.Lines.Count-1 do
    for c := Length(Richedit.Lines[i]) downto 1 do
    begin
      if Richedit.Lines[i][c] = ' ' then
        Richedit.Lines[i] := Copy(Richedit.Lines[i], 1, c-1)
      else
        Break;
    end;
end;

Gruß
Angos