TaskDialog in globaler Unit?

[HCB]

Hallo TurboMagic,

jawoll ich habe keine Ahnung was Self bedeutet (bin Dilletant), aber ich bedanke mich für deinen wertvollen Hinweis mit"NIL".
Ich habe es jetzt so am Laufen:

procedure errorMessage(Message:String);
begin
with TTaskDialog.Create(NIL) do
begin
try
MainIcon := tdiWarning;
Caption := 'WARNUNG';
Title := Message;
CommonButtons := [tcbClose];
Execute;
finally
Free;
end;
end;

LG Harry