Delphi
function TypeOf(X: object): Pointer;
TypeOf は推奨されていません。
TypeOf は下位互換性を保つために残されているだけなので、使用しないでください。ある型の RTTI 情報を取得するには、TypeHandle ルーチンか TypeInfo ルーチンのどちらかを使用します。