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