01type
02  IExternalQuery = interface(IDispatch)
03    ['{1A86D1DA-A56E-4D53-88F9-7A035D7D12B4}']
04    function Get_CurrentQuery: WideString; safecall;
05    function Select(const SQL: WideString): IExternalDataSet; safecall;
06    function SelectedRecordsCount: Integer; safecall;
07    function SelectedRecord(Index: Integer): OleVariant; safecall;
08    procedure PlaceCurrentQuery(const Sheet: IDispatch; CaptionsNeeded: WordBool; 
09      Row: Integer; Column: Integer; ShiftRows: WordBool; ShiftColumns: WordBool); safecall;
10    procedure PlaceQuery(const Sheet: IDispatch; const DataSet: ExternalDataSet; 
11      Row: Integer; Column: Integer; ShiftRows: WordBool; ShiftColumns: WordBool); safecall;
12    property CurrentQuery: WideString read Get_CurrentQuery;
13  end;