Source position: libioh.inc line 113
type TCodeCvtDoMaxLengthFunc = function(
p1: P_IO_codecvt
):Integer;