This type is used for the TCustomDASQLMonitor.OnSQL event. 
Unit
DASQLMonitor
 Syntax
TOnSQLEvent = procedure (Sender: TObject; Text: string; Flag: TDATraceFlag) of object;
Parameters
Sender
An object that raised the event. 
Text
Holds the detected SQL statement. 
Flag
Use the Flag parameter to make selective processing of SQL in the handler body.