* typeof(classref) is not possible

tests/webtbs/tw2317.pp

@@ -10,7 +10,7 @@ Type tObject=Object
 
 Function tObject.GetVMT:Pointer;
 Begin
-   Exit(TypeOf(Self));
+   Exit(Self);
 End;
 
 var