Cleancode, Dependency Injection oder wie stelle ich mich richtig an

[Ralle1]

Delphi Version XE3.

Hier ein kleines Codebeispiel (ich war davon ausgegangen, dass dies nicht mehr Aussagekraft hat, als mein engehender Text).
Den realen Code kann ich aufgrund des Umfangs schlecht hier unterbringen:

Delphi-Quellcode:

type
  TFormMain = class(TForm)
    PageControlMain: TMyPageControl;
    TabSheet1: TMyTabSheet;
    TabSheet2: TMyTabSheet;
    TabSheet3: TMyTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  FormMain: TFormMain;
  fUserID : integer;  //globale User ID

implementation

{$R *.dfm}

procedure TFormMain.FormCreate(Sender: TObject);
begin
  fUserID := GetGlobalUserID; //globale User ID wird von wo auch immer gesetzt bei Programmstart
end;

(******************************************************************************)

type
  TMyPageControl = class(TComponent)
  private
    { Private-Deklarationen }
    Settings : TControlSettings;
  public
    { Public-Deklarationen }
  end;

(******************************************************************************)

type
  TControlSettings = class
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure SaveSettingstoDatabase;
  end;


implementation

procedure TControlSettings.SaveSettingstoDatabase;
begin
  //Hier wird die globale UserID benoetigt
end;

(******************************************************************************)