diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 4987b3e9f6..3505904a40 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -3810,10 +3810,10 @@ var
             FoundFilename:=ResolveDots(GetForcedPathDelims(Param));
             // search include file
             MissingIncludeFile:=nil;
-            if Scanner.SearchIncludeFile(FoundFilename,NewSrcLog,
-              MissingIncludeFile)
+            if Scanner.SearchIncludeFile(FoundFilename,NewSrcLog,MissingIncludeFile)
             then
               FoundFilename:=TCodeBuffer(NewSrcLog).Filename;
+            MissingIncludeFile.Free;
           end;
           exit;
         end;