TCustomFunctionEvent = procedure (Sender: TObject; const FunctionName: String; FunctionParams: TDBISAMParams; var Result: Variant) of object