fcl-passrc: fixed compile with pas2js

packages/fcl-passrc/src/pparser.pp

@@ -8351,6 +8351,7 @@ var
   SrcPos: TPasSourcePos;
   I : Integer;
   V : TPasVariable;
+  Obj: TObject;
 
 begin
   // var a : Integer;
@@ -8372,7 +8373,10 @@ begin
   finally
      For I:=0 to List.count-1 do
        if List[i]<>Nil then
-         TObject(List[I]).Free;
+         begin
+         Obj:=TObject(List[I]);
+         Obj.Free;
+         end;
      List.Free;
   end;