diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index fe0abfc516..a907f271f9 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -1437,6 +1437,8 @@ begin
   fErrorLine:=-1;
   fErrorTopLine:=0;
   FErrorId:=0;
+  FErrorMsg := '';
+  FErrorDbgMsg := '';
 end;
 
 procedure TCodeToolManager.ClearCurCodeTool;