Hola totote,
La forma correcta de hacer lo que necesitas es siguiendo las directrices que sugiere el patrón
Singleton.
Para darte una idea de como realizarlo en delphi sugiero las siguientes lecturas:
http://dn.codegear.com/article/22576
http://www.delphi3000.com/articles/article_1736.asp?SK=
La idea del patrón singleton es que cuando se llama al método GetInstance o NewInstance (o como prefieras llamarlo) se considere previamente si existe ya una instancia de dicha clase. Si es así la función retorno dicha instancia en caso contrario la creará.
Con esto se consigue que al primer momento en que se invoque el método se cree la única instancia permitida, mientras que en las otras invocaciones lo que conseguirás será una referencia a dicha instancia.
Saludos,