Update file fpwebfile.pp

packages/fcl-web/src/base/fpwebfile.pp

@@ -346,7 +346,7 @@ begin
     if (BaseDir='') then
       BaseDir:=ExtractFilePath(Paramstr(0))
     end;
-  FN:=ExtractRelativepath(BaseDir,aFileName);
+  FN:=ExtractRelativepath(BaseDir,FN);
   Result:=Pos('..'+PathDelim,FN)=0;
 end;