[[maeyanes]]

Usa la propiedad Lines del DBMemo...

Código Delphi [-]
if DBMemo1.Lines.Count = 0 then
  ShowMessage('El memo está vacio');