From TypInfo. This code looks in the pas, PTypeData read from TTypeInfo,

The function GetTypeData (TypeInfo: PTypeInfo) : PTypeData; Assembler.
Asm
{- & gt; EAX Pointer to the type of info}
{& lt; - EAX Pointer to type data}
{it 's really just to skip the kind and the name}
XOR EDX, EDX
MOV DL, EAX. TTypeInfo. Name. Byte [0]
LEA EAX, EAX. TTypeInfo. Name [EDX + 1]
end;

But TTypeInfo TypeData definition has been commented out,

TTypeInfo=record//TTypeInfo RTTI is the structure of information
Kind: TTypeKind;//RTTI information data type
Name: ShortString;//the name of the data type
{TypeData: TTypeData}//RTTI content
end;

How is this to return a responsibility excuse me?