Source position: zglHeader.pas line 1359
var utf8_GetShift: procedure(
const Str: UTF8String;
Pos: Integer;
out NewPos: Integer;
Chars: Integer = 1
);