diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index 8cf4c58017..cb245c9232 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -1308,7 +1308,7 @@ begin
     exit(false);
   end;
   MoveCursorToFirstProcSpecifier(ProcNode);
-  while (CurPos.StartPos<=ProcNode.FirstChild.EndPos) do begin
+  while (CurPos.StartPos<ProcNode.FirstChild.EndPos) do begin
     if CurPos.Flag=cafSemicolon then begin
       ReadNextAtom;
     end else begin