- remove unused variable; reported by Alexey Torgashin on the forum

rtl/objpas/fgl.pp

@@ -1104,10 +1104,6 @@ begin
 end;
 
 function TFPGObjectList.GetFirst: T;
-
-Var
-  P: Pointer;
-
 begin
   if FCount<>0 then
     Result := T(inherited GetFirst^)