Source position: dialogs.pp line 587
type TTaskDialogCommonButtons = set of (
tcbOk,
tcbYes,
tcbNo,
tcbCancel,
tcbRetry,
tcbClose
);