Source position: fpwebdata.pp line 410
type TInputAdaptorEvent = procedure(
Sender: TObject;
var AInputAdaptor: TCustomWebdataInputAdaptor
) of object;