Hola elliotduvorov, bienvenido al club. Como a todos los novatos, te invitamos a que revises la
Guía de Estilo si no lo has hecho ya.
Respecto a tu pregunta, no estoy seguro de que vaya a funcionar ya que no creas ningún objeto. Realmente no he usado nunca este código, pero viendo el código adjuntado por Crandel, creo que deberías hacer algo así:
Código Delphi
[-]
TYPE
TMiSuperObjetoSesion = CLASS (TSuperGlobalObject)
PUBLIC
MiSesion: TOraSession;
END;
VAR
ElObjetoSesionGlobal: TMiSuperObjetoSesion;
BEGIN
ElObjetoSesionGlobal := TMiSuperObjetoSesion. Create;
MiSesionLocal.AssignConnect (ElObjetoSesionGlobal.MiSesion)
END
De todas formas, ten en cuenta las limitaciones de las que habla Al en la cabecera de su código, ya que el objeto "MiSesion" podría darte problemas.
El artículo de la bitácora del máster Al incluye más información acerca del mecanismo, y dará pistas de qué se puede y qué no y por qué.