var
  I: Integer;
begin
  for I := 0 to Memo1.Lines.Count - 1 do
  begin
    if (Memo1.Lines[I] <> '') and (Trim(Memo1.Lines[I]) <> '') then
      Memo2.Lines.Add(Memo1.Lines[I]);
  end;

end;