Singleton в Delphi, как сделать подобие?

[Felan]

Как лушче всего реализовать подобие Singleton'а (С++) в делфи?
Или как вообще поступают в делфи, когда надо гарантировать один экземпляр класса на приложение?
Я вижу только один способ, передавать параметром по иерархии классов. Т.е. один раз создается, а потом передается классам верхнего уровня, а те, в свою очередь, передают его ниже в процедурах установки свойств.
Но способ мне не нравится, надо следить за всеми этими присвоениями. Вобщем, как првильно сделать в Delphi 7 (если версия имеет значение).

[PVitaliy]

достаточно просто.
Пути я вижу 3, выбери тот который тебе больше всего нравится:

1. в том модуле, где обьявлен твой класс сделай в интерфейсной части глобальную переменную типа твоего класса. В initialize модуля создай экземпляр класса, и присвой ей

2. в том модуле, где обьявлен твой класс сделай глобальную переменную типа твоего класса но в секции implementation. В initialize модуля создай экземпляр класса, и присвой ей. В классе сделай класс функцию (статические в С++) и пусть она возвращает нашу переменную.

3. в том модуле, где обьявлен твой класс в секции implementation сделай глобальную переменную типа твоего класса. В классе сделай класс функцию типа такого:
if YourVar = nil then YourVar:=YourClass.Create;
result:=YourVar;

возможны еще вариации, но ИМХО выходит самый настоящий сингилитон

[is_absent]

{$J+}
unit Singleton;

interface

uses
  Classes, SysUtils, Forms, Controls, Windows;

  type

  TSingleton = class(TControl)
  private
    //
  protected
    //
    constructor CreateInstance;
    class function AccessInstance(Request: Integer): TSingleton;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    class function Instance: TSingleton;
    class procedure ReleaseInstance;
  end;

implementation

class function TSingleton.AccessInstance(Request: Integer): TSingleton;
const
  FInstance: TSingleton = nil;
begin
  case Request of
    0: ;
    1: if not Assigned(FInstance) then FInstance:= CreateInstance;
    2: FInstance := nil;
  else raise Exception.CreateFmt('Illegal request %d in AccessInstance', [Request]);
  end;
  Result := FInstance;
end;

constructor TSingleton.Create;
begin
  // нельзя его вызывать!
  raise Exception.CreateFmt('Access class %s through Instance only', [ClassName]);
end;

constructor TSingleton.CreateInstance;
begin
  inherited Create(nil);
  // делаем то, что нужно
end;

destructor TSingleton.Destroy;
begin
  // прибираемся за собой
  inherited;
end;

class function TSingleton.Instance: TSingleton;
begin
  Result := AccessInstance(1);
end;

class procedure TSingleton.ReleaseInstance;
begin
  AccessInstance(0).Free;
end;

end.

так красивше

соответственно потом обращаться TSingleton.instance....