Sir Rufo hat dir schon eine vollständige Lösung für dein Problem gezeigt.
Um sein letztes Beispiel nochmal zu verdeutlichen:
Delphi-Quellcode:
unit SomeOtherUnitFromYourProject;
interface
procedure BlaBla;
implementation
uses
GlobalStore;
//ja, das ist die gleiche Unit
procedure BlaBla;
begin
GlobalStore.Global.UserID := 10;
if GlobalStore.Global.UserName = '
Kralle'
then
begin
Writeln('
Brauche eigentlich für mein Problem kein Datenmodul!');
end;
end;