Вот тебе код кнопки для удаления пустоты из Мемо, разберешься по аналогии:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=memo1.lines.count-1 downto 0 do
begin
if memo1.lines.strings[i]='' then
memo1.lines.delete(i);
end;
end;