如何好判断memo内是否为空？

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  trim(memo1.Text)=''then
  showmessage('memo内容为空!')
  else
  showmessage('memo内容不为空!');
end;