diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 46c7488dea..4f7084617a 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1731,6 +1731,8 @@ begin
                        cafEdgedBracketClose]
     then
       break;
+    if CurPos.StartPos>SrcLen then
+      RaiseCharExpectedButAtomFound(';');
     if AtomIs('..') then begin
       if RangeOpFound then
         RaiseCharExpectedButAtomFound(';');