Sichtbarkeitsmodifizierer in Forms / Singleton

[HeinzJ]

Welche Sichtbarkeit haben die Members und Variablen die von Delphi defaultmäßig NICHT als private oder public deklariert werden. Bei Einordnung der Create u. DataModuleCreate Procedure in einen protected Abschnitt wirft mein Peogramm Fehler. Mein Ziel ist es diese beiden Proceduren zu verbergen und den Aufruf nur noch per GetInstance (Singleton Muster) zu realisieren.


Code ohne Fehler

Delphi-Quellcode:

type
  T_dmConnection = class(TDataModule)
    ADOConSRVCharter: TADOConnection;
    ADOConVesseldatabase: TADOConnection;
    constructor Create (AOwner: TComponent); override;  
    procedure DataModuleCreate(Sender: TObject);        
  strict private
  class var
    FInstance:T_dmConnection;
  public
    class function GetInstance: T_dmConnection;
  end;

Code mit Fehler

Delphi-Quellcode:

type
  T_dmConnection = class(TDataModule)
    ADOConSRVCharter: TADOConnection;
    ADOConVesseldatabase: TADOConnection;
  protected
    constructor Create (AOwner: TComponent); override;  
    procedure DataModuleCreate(Sender: TObject);        
  strict private
  class var
    FInstance:T_dmConnection;
  public
    class function GetInstance: T_dmConnection;
  end;