procedure TForm1.Button1Click(Sender: TObject); begin if Length(Trim(edit1.Text)) = 0 then ShowMessage('Está vacio'); end;