Custom compiler message beim Aufruf einer Methode möglich?

[Stevie]

Moin,

ist es möglich, beim Kompilieren eine eigene Compiler message auszugeben, wenn irgendwo im kompilierten Code eine bestimmte Methode aufgerufen wird? Ich möchte damit bei einer Singleton Implementierung verhindern, dass irgendwo der Konstruktor aufgerufen wird.
Ich hab {$MESSAGE WARN 'Instantiation of TSingleton not allowed'} in den constructor meiner TSingleton Klasse geschrieben, aber die wird immer angezeigt, egal ob ich irgendwo ein Objekt dieser Klasse instanziere oder nicht - irgendwie ja auch logisch
Wäre prima, wenn beim Aufruf von TSingleton.Create irgendwo im Code sowas kommt, wie wenn man eine Klasse mit abstrakten Methoden instaziert (oder gar ein Fehler, der das Kompilieren ganz verhindert)

MfG