Leere Zeilen im SynEdit löschen?

[Grolle]

So? Funktioniert aber nicht

Delphi-Quellcode:

var i:integer;
begin
  for i:=0 downto synedit1.lines.Count-1 do begin
    if synedit1.lines[i]='' then synedit1.lines.delete(i);
  end;
end;