delphi的单例模式TSingleton

type
  TSingleton = class
  public
    class function NewInstance : TObject;override;
    procedure FreeInstance;override;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  singleton:TSingleton=nil;
  Ref_Count:integer=0;
implementation

{$R *.dfm}

{ TSingleton }

procedure TSingleton.FreeInstance;
begin
  Dec(Ref_Count);
  if Ref_Count=0 then
  begin
    singleton := nil;
    inherited FreeInstance;
  end;
end;

class function TSingleton.NewInstance: TObject;
begin
  if (not Assigned(singleton)) then
  begin
    singleton := inherited NewInstance as TSingleton;
  end;
  Result := Singleton;
   Inc(Ref_Count);
end;

end.