01type
02  IExternalDataSet = interface(IDispatch)
03    ['{CDC7992C-BB30-431C-9F81-3215175AD5AB}']
04    function Get_FieldCount: Integer; safecall;
05    function Get_FieldName(Index: Integer): WideString; safecall;
06    function Get_Field(FieldIndex: OleVariant): OleVariant; safecall;
07    procedure Next; safecall;
08    function Eof: WordBool; safecall;
09    property FieldCount: Integer read Get_FieldCount;
10    property FieldName[Index: Integer]: WideString read Get_FieldName;
11    property Field[FieldIndex: OleVariant]: OleVariant read Get_Field;
12  end;