Singleton-Pattern in Delphi 7 realisieren

[dimo]

Hallo,
wie kann ich das Singleton-Pattern in Delphi 7 realisieren? Was ich damit meine ist:

Delphi-Quellcode:

TSingleton = class
     class function GetInstance : TSingleton;
end;

Diese Prozedur muss natürlich thread-sicher sein. Mit globalen Variablen geht es natürlich nicht,
da ich dieselbe Instanz sowohl im Programm als auch in allen mitprogrammierten BPLs und DLLs benutzen
will (ohne die expilizit zu übergeben).
Jetzt habe ich das Problem mit Shared Memory und 1 Mutex gelöst (im Shared Memory speichere ich ein Zeiger auf die Instanz, falls eine schon vorhanden ist). Gibt es eine einfachere Möglichkeit?

Grüße,
Dimo