fcl-passrc: clean up

git-svn-id: trunk@47482 -
(cherry picked from commit 95addf15ced2ad0e1c1374e68d2cf3b1263e6a5f)

packages/fcl-passrc/src/pscanner.pp

@@ -2984,8 +2984,6 @@ Procedure TPascalScanner.PopStackItem;
 
 var
   IncludeStackItem: TIncludeStackItem;
-  aFileName : String;
-
 begin
   IncludeStackItem :=
     TIncludeStackItem(FIncludeStack[FIncludeStack.Count - 1]);