Globale Variable - Definition

[omata]

Wie wäre es mit einer eigenen Unit?

Delphi-Quellcode:

unit dBKU;

interface

type
  TdBK = class
   :
   :
  end;


function dBK: TdBK;

implementation

var
  gdBK: TdBK;

function dBK: TdBK;
begin
  Result:=gdBK;
end;

initialization
  gdBK:= TdBK.Create;

finalization
  gdBK.Free;

end.

So ist keine projekt-globale-Variable vorhanden.