删除memo某一行

Delphi(Pascal) code

var
   i :integer ;
   str :String ;

for (i:= memo1.lines.count -1 to 0 ) do
begin
   str = memo1.lines[i] ;
   if (Trim(str) = '') then
   begin
      memo1.lines.delete(i) ; //我也不知道 写得对不对 ，你自己查一下Help
   end;
end ;