01type
02  IDataSet = interface(IUnknown)
03    ['{00000000-0000-0000-0000-000000000000}']
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;