[Delphi] Jak powycinać puste linie z RichEdit????

Jak powycinać puste linie z RichEdit???? Dziekuję

var
i: Integer;
begin
i := 0;
with RichEdit1.Lines do
while i

var
i: Integer;
begin
for i:=RichEdit1.Lines.Count - 1 downto 0 do
if RichEdit1.Lines[i] = '' then RichEdit1.Lines.Delete(i)
end;

Krócej i szybciej :P