[[Al González]]

Ah, entonces era otro lenguaje. Por un momento pensé que habían hecho ese cambio en Delphi 2009 o algo por el estilo.

Empezado por roman

...ya puedes guardar cualquier cosa en el Tag:

Código Delphi [-]
Componente.Tag := Integer(UnObjetoCualquiera);

Eso es muy cierto, Román, me faltó ser más específico. Así mismo lo he hecho en algunos casos muy particulares, como en esta clase interpuesta de un proyecto:

Código Delphi [-]
  Function TField.Desc :TFieldDesc;
  Var
    QualifiedName :String;
  Begin
    If HasDesc Then
      Result := TFieldDesc (Tag)
    Else
      ...

      Result := FieldDesc (QualifiedName);

      { Usamos la propiedad Tag para apuntar al objeto descriptor }
      Tag := Integer (Result);
    End;
  End;

Saludos.

Al.