diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index dde64ce2c5..cd86d5ace4 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1694,6 +1694,8 @@ begin
         end;
       end;
     end;
+  end else if CurPos.Flag=cafColon then begin
+    SaveRaiseCharExpectedButAtomFound(';');
   end;
   if UpAtomIs('OF') then begin
     // read 'of object'