diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 8ff3439384..c7eb1390fc 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -3652,7 +3652,7 @@ begin
       end
       else if ((ord(p^) and %11100000) = %11000000) then begin
         // could be 2 byte character
-        if (Count) (ord(p[1]) and %11000000) = %10000000 then
+        if (ord(p[1]) and %11000000) = %10000000 then
           CharLen:=2
         else
           exit; // missing following bytes