Source position: flcUnicodeCodecs.pas line 156
type TCodecReadEvent = procedure(
Sender: TObject;
var Buf;
Count: LongInt;
var Ok: Boolean
) of object;