+ support 16-bit pointer size in TFPGObjectList.IndexOf

rtl/objpas/fgl.pp

@@ -1128,7 +1128,9 @@ end;
 function TFPGObjectList.IndexOf(const Item: T): Integer;
 begin
   Result :=
-{$if sizeof(pointer) = sizeof(dword)}
+{$if sizeof(pointer) = sizeof(word)}
+    IndexWord
+{$elseif sizeof(pointer) = sizeof(dword)}
     IndexDWord
 {$elseif sizeof(pointer) = sizeof(qword)}
     IndexQWord