删除memo某一行

Delphi(Pascal) code

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