diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp
index 3947faeb4a..363f1a01b2 100644
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/packages/fcl-passrc/src/pscanner.pp
@@ -486,7 +486,6 @@ type
     FIncludePaths: TStringList;
     FStrictFileCase : Boolean;
   Protected
-    Function FindIncludeFileName(const AName: string): String; virtual;
     procedure SetBaseDirectory(AValue: string); virtual;
     procedure SetStrictFileCase(AValue: Boolean); virtual;
     Property IncludePaths: TStringList Read FIncludePaths;
@@ -2387,11 +2386,6 @@ end;
   TBaseFileResolver
   ---------------------------------------------------------------------}
 
-function TBaseFileResolver.FindIncludeFileName(const AName: string): String;
-begin
-  Result:=aName;
-end;
-
 procedure TBaseFileResolver.SetBaseDirectory(AValue: string);
 begin
   if FBaseDirectory=AValue then Exit;