1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
  TaskDialog: TTaskDialog;
  Button: TTaskDialogBaseButtonItem;
begin
  TaskDialog := TTaskDialog.Create(Self);
  try
    TaskDialog.Title := 'Meldungstitel';
    TaskDialog.Caption := 'Meldungsüberschrift';
    TaskDialog.Text := 'Bist du sicher?';
    TaskDialog.CommonButtons := [];
    TaskDialog.MainIcon := tdiInformation;
    Button := TaskDialog.Buttons.Add;
    Button.Caption := 'Mein Ok-Button';
    Button.ModalResult := mrOk;
    Button := TaskDialog.Buttons.Add;
    Button.Caption := 'Abbrechen';
    Button.ModalResult := mrCancel;
    Button := TaskDialog.Buttons.Add;
    Button.Caption := 'Hilfe';
    Button.ModalResult := MB_HELP;
    if TaskDialog.Execute then
      case TaskDialog.ModalResult of
        mrOk:
          ShowMessage('Ok gedrückt');
        mrCancel:
          ShowMessage('Abbrechen gedrückt');
        MB_HELP:
          ShowMessage('Hilfe anzeigen');
      end;
  finally
    TaskDialog.Free;
  end;
end;