Objeto global a la aplicación

[[Al González]]

Empezado por noob

...¿Es esto posible?

Sí. Un buen ejemplo de lo que buscas lo tiene la propia VCL en la unidad Menus.pas:

Código Delphi [-]
unit Menus;

...

interface

...

var
  PopupList: TPopupList;

...

implementation

...

// esto se ejecuta al arrancar el programa
initialization
  ...
  PopupList := TPopupList.Create;
  ...

// esto se ejecuta cuando finaliza el programa
finalization
  ...
  PopupList.Free;
  ...
  
end.

(encontrado con Find in Files en Delphi 7)

Observa cómo la unidad ActnPopup.pas hace uso del objeto global:

Código Delphi [-]
unit ActnPopup;

interface

{ Borland agrega la unidad Menus en esta cláusula Uses porque esta sección
  "Interface" requiere elementos de Menus.pas }
uses Classes, Controls, Menus, ActnMenus, XPActnCtrls, ActnMan, ActnList;

...

implementation

{ Pero en este Uses estaría agregada la unidad Menus sí únicamente se
  quisiera acceder a la variable PopupList }
uses SysUtils, Windows, Messages, Forms;

...

procedure TCustomActionPopupMenuEx.ExecAction(Action: TContainedAction);
begin
  PostMessage(PopupList.Window, WM_COMMAND, TMenuItem(FSelectedItem.Tag).Command, 0);
end;

...

end.

(encontrado con Find in Files en Delphi 7)

Espero te sirva, no dejes de comentarnos.

Al González