Source position: fpwebdata.pp line 41
type TTransCodeEvent = procedure(
Sender: TObject;
var S: string
);