Source position: fpwebdata.pp line 147
type TOnTranscodeEvent = procedure(
Sender: TObject;
F: TField;
var S: string;
Outbound: Boolean
) of object;