delphi中怎样调用函数判断文本框是否为空

procedure TForm1.Button1Click(Sender: TObject);
begin
if Trim(Memo1.Lines.Text)='' then
begin
//放置文本框为空时你要做的事
ShowMessage('文本框不能为空');
end;
end;
也可以改成Trim(Edit1.Text)。使用Trim是为了防止用户只输空格，或只输入回车键而没有文字