diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index aaff7ff804..47252820ed 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -488,7 +488,7 @@ begin
     ExtractNextAtom(not (phpWithoutSemicolon in Attr),Attr);
   // read specifiers
   if [phpWithCallingSpecs,phpWithProcModifiers]*Attr<>[] then begin
-    while (CurPos.StartPos<=ProcNode.FirstChild.EndPos) do begin
+    while (CurPos.StartPos<ProcNode.FirstChild.EndPos) do begin
       if CurPos.Flag=cafSemicolon then begin
         ExtractNextAtom(phpWithProcModifiers in Attr,Attr);
       end else begin