[defcon1_es]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if DisplayMsg(edtString.Text)
  then ...//lo que quieras
end;