memo - pytanie

Mam pytanie: Jak usunąć w memo PUSTE linie???

No wiec od razu pisze ze pisze :-) z pamieci:

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

Tu by jeszcze text ale okazal sie niewazny wiec go zniszczylem :-)

--
pozdrawiam PEDROS {hello}

Nie uzywajcie irca i tak nie ma tam nic ciekawego.

Delphi6 Personal

begin
H := 0;
for I := 0 to Memo1.Lines.Count do begin
if Length(Memo1.Lines.Strings[I - H]) = 0 then begin
Memo1.Lines.Delete(I - H);
Inc(H);
end;
end;
end;

To usunie wszystkie puste (Length = 0) niestety nie usowa tych ktore skladaja sie z samych spacji :| --Pozdrawiam {hello}
Tomasz K.