Du brauchst diese Funktion nicht kopieren, denn die wird intern bereits verwendet, wenn du ShowMessage aufrufst. Du könntest darin aber einen Haltepunkt setzen und prüfen, was dort passiert, wenn du ShowMessage verwendest. Das sieht dann z.B. so aus:
Wie du siehst, komme ich in den ersten Zweig rein.
Aber was passiert bei dir denn, wenn du diese Zeilen ausprobierst?
Delphi-Quellcode:
ShowMessage('Test', [tfAllowDialogCancellation]);
ShowMessage('Test', []);
Macht das einen Unterschied?