diff --git a/components/codetools/basiccodetools.pas b/components/codetools/basiccodetools.pas
index 2fa6e6b07a..34db7fb604 100644
--- a/components/codetools/basiccodetools.pas
+++ b/components/codetools/basiccodetools.pas
@@ -1599,6 +1599,14 @@ begin
       begin
         inc(Position);
       end;
+      #$EF:
+        if (Source[Position+1]=#$BB)
+        and (Source[Position+2]=#$BF) then begin
+          // skip UTF BOM
+          inc(Position,3);
+        end else begin
+          break;
+        end;
      '{':    // comment start or compiler directive
       begin
         if (Position<Len) and (Source[Position+1]='$') then