Como Remover Linhas em Branco do Memo | Delphi

Removendo todas as linhas em branco de um Memo ou RichEdit com Delphi

Esta dica é para que você elimine todas as linhas em branco do Memo ou RichEdit no Delphi.

Procedimento:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 for i := Memo1.Lines.Count/1 downto 0 do
   if trim(Memo1.Lines[i]) = '' then
      Memo1.Lines.Delete(i);
end;