Pues sera medio-medio pero es la manera de hacerlo.
Una forma mas elegante es usando una estrategia similar al concepto de sesion en sitios web y crear una clase con los datos de la sesion y usuario actual:
Código Delphi
[-]
TSesion= class
Usuario:TUsuario;
EmpresaActual:TEmpresa;
..
..