Fix test for compact and medium i8086 memory model

git-svn-id: trunk@34071 -

tests/webtbs/tw24536.pp

@@ -9,7 +9,7 @@ type
   end;
 
 var
-  Foo,Foo2: Pointer;
+  Foo,Foo2: CodePointer;
 begin
   Foo := @TMyClass.MyAbstractMethod;
   Foo2 := @TMyClass.MyAbstractMethod2;