* typeof(classref) fix

tests/webtbs/tw2318.pp

@@ -17,7 +17,7 @@ End;
 
 Function tObject.GetVMT:Pointer;
 Begin
-  GetVMT:=Typeof(self);
+  GetVMT:=self;
 End;
 
 

tests/webtbs/tw2318b.pp

@@ -20,7 +20,7 @@ End;
 
 Function tObject.GetVMT:Pointer;
 Begin
-  GetVMT:=Typeof(self);
+  GetVMT:=self;
 End;