* Avoid range error in comparisons

rtl/inc/objpas.inc

@@ -474,7 +474,7 @@
 
         var
            methodtable : pmethodnametable;
-           i : dword;
+           i : longint; // in case count=0
            ovmt : PVmt;
 
         begin
@@ -500,7 +500,7 @@
       class function TObject.MethodName(address : codepointer) : shortstring;
         var
            methodtable : pmethodnametable;
-           i : dword;
+           i : longint; // in case count=0
            ovmt : PVmt;
         begin
            ovmt:=PVmt(self);