Código Delphi [-] CanClose := (MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes);
CanClose := (MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes);