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