diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index e92bfb2296..e6ca4557b4 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -3227,6 +3227,7 @@ begin
       if (BytePos<0) then exit;
       inc(Result,CharLen);
       if (BytePos=0) then exit;
+      inc(UTF8Str,CharLen);
     end;
   end;
 end;