Caption in TTaskDialog

[Maekkelrajter]

In einem TTaskdialog ist der Caption-String nur dann sichtbar, wenn mit den CommonButtons ein Cancel-Button deklariert wird. Dummerweise kann ich in diesem Dialog aber keinen Cancel - Button gebrauchen.

Delphi-Quellcode:

function InsertGUID(FN:string): Integer;
begin
  result:= mrNO;
  with TTaskDialog.Create(NIL) do
  try
    Caption:= 'GUIDs einfügen';
    MainIcon:= tdiShield;
    Title:= 'GUID in aktuelle Datei einfügen';
    Text:= 'Soll eine GUID generiert und in die Datei "' + FN + '" geschrieben werden?';
    commonButtons:= [tcbYes,tcbNo,tcbCancel];   // so funktioniert's
    //commonButtons:= [tcbYes,tcbNo];   // so funktioniert's nicht!
    flags:= [tfVerificationFlagChecked];
    verificationtext:= 'Für alle folgenden Tracks übernehmen';
    If Execute Then
    begin
      result:= modalresult;
      If tfVerificationFlagChecked in Flags Then result:= -result;
    end;
  finally
    Free;
  end;
end;

Ist das reguläres Verhalten oder mache ich etwas falsch?
Gruß LP