Source position: flcUnicodeCodecs.pas line 158
type TCodecWriteEvent = procedure(
Sender: TObject;
const Buf;
Count: LongInt
) of object;