yes QuestionDlg
Question dialog allows changing button captions and setting default and cancel buttons. The 3rd argument in the QuestionDlg() call determines the icon shown in the dialog. In some widgetsets, the icon can be suppressed by selecting message type mtCustom.
QuestionDlg('Caption', 'Message', mtInformation, [mrYes, 'Positive', mrNo, 'Negative', 'IsDefault'], '') of
mrYes: QuestionDlg('Caption', 'So you mean „Yes“', mtCustom, [mrOK, 'That is right'],'');
mrNo: QuestionDlg('Caption', 'Oh, you mean „No“', mtCustom, [mrOK, 'Exactly'], '');
mrCancel: QuestionDlg('Caption', 'You cancelled the dialog with ESC or close button.', mtCustom, [mrOK, 'Exactly'], '');
this dialog support!