diff --git a/components/codetools/eventcodetool.pas b/components/codetools/eventcodetool.pas
index cee2091399..982ad3b893 100644
--- a/components/codetools/eventcodetool.pas
+++ b/components/codetools/eventcodetool.pas
@@ -885,7 +885,7 @@ begin
   if TypeData=nil then exit(true);
   ParamCount:=TypeData^.ParamCount;
   {$IFDEF VerboseTypeData}
-  DebugLn('[TEventsCodeTool.CreateExprListFromMethodTypeData] ParamCount=',ParamCount);
+  DebugLn(['[TEventsCodeTool.CreateExprListFromMethodTypeData] ParamCount=',ParamCount]);
   {$ENDIF}
   if ParamCount>0 then begin
     Offset:=0;
diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index a6bbd021b5..c0b54222d2 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -9449,7 +9449,7 @@ var i: integer;
 begin
   Result:='';
   for i:=0 to Count-1 do begin
-    Result:=Result+'{'+ExprTypeToString(Items[i])+'}'+LineEnding;
+    Result:=Result+'{'+IntToStr(i)+'/'+IntToStr(Count)+':'+ExprTypeToString(Items[i])+'}'+LineEnding;
   end;
 end;