procedure WillExecute(var Source: WideString; var CursorType: CursorTypeEnum; var LockType: LockTypeEnum; var Options: Integer; var adStatus: EventStatusEnum; const pCommand: _Command; const pRecordset: _Recordset; const pConnection: _Connection); safecall;

__fastcall WillExecute(BSTR Source, CursorTypeEnum CursorType, LockTypeEnum LockType, int Options, EventStatusEnum adStatus, const _Command pCommand, const _Recordset pRecordset, const _Connection pConnection);