TaskDialog in globaler Unit?

[KodeZwerg]

So hier...

Delphi-Quellcode:

unit Unit8;

interface

uses
  Winapi.Windows,
  System.Classes,
  Vcl.Forms, Vcl.Dialogs;

procedure errorMessage(const AOwner: TComponent; const AMessage: string);

implementation

procedure errorMessage(const AOwner: TComponent; const AMessage: string);
var
  Dlg: TTaskDialog;
begin
  Dlg := TTaskDialog.Create(AOwner);
  try
    Dlg.MainIcon := tdiWarning;
    Dlg.Caption := 'WARNUNG';
    Dlg.Title := AMessage;
    Dlg.CommonButtons := [tcbClose];
    Dlg.ModalResult := MB_OK;
    Dlg.Execute;
  finally
    Dlg.Free;
  end;
end;

end.