more verbose in case file not found in filechache

git-svn-id: trunk@9148 -

components/codetools/fileprocs.pas

@@ -2322,6 +2322,7 @@ begin
     if FFiles.FindKey(PChar(TrimmedFilename),
                       @CompareFilenameWithFileStateCacheItem)=nil
     then begin
+      DebugLn(format('FileStateCache.FindFile: "%s"',[FileName]));
       WriteDebugReport;
       raise Exception.Create('');
     end;