Source position: sqldbwebdata.pp line 28
type TGetParamTypeEvent = procedure(
Sender: TObject;
const ParamName: string;
const AValue: string;
var AType: TFieldtype
) of object;