Du kannst auch (mit etwas neueren Delphiversionen) eine Klassenvariable nutzen:
Delphi-Quellcode:
TGobals = class
class var
I: Integer;
end;
Mit älteren Delphi-Versionen dementsprechend
Delphi-Quellcode:
type
TGlobals = packed record
I: Integer;
end;
var
aGlobals: TGlobals;
// Benutzung
X := aGlobals.I;