//property Tag: Integer read FTag write FTag; //--------- moved to TObj --------
{* User-defined pointer, which can contain any data or reference to
anywhere in memory (when used as a pointer).

        Result.fControl.Tag := Longint(Result);