for i:=memo1.lines.count-1 downto 0 do begin if memo1.lines.strings[i]='' then memo1.lines.delete(i); end;
