التعامل مع الرسائل في دلفي MessageBox & Delphi

[rhopalocera]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  msgRet: integer;
begin
  msgRet := Messagedlg(
    'Your confirmation question here...',
    mtconfirmation,
    [mbyes, mbno, mbcancel],
    0);

  if msgRet = mryes then
  begin

  end;

  if msgRet = mrcancel then
  begin

  end;

  if msgRet = mrno then
  begin

  end;

end;