01type
02  ITableInfo2 = interface(ITableInfo)
03    ['{9DF4C8AC-1DA2-4E7B-BF44-7EDD7A269418}']
04    function Get_PolymorphCount: Integer; safecall;
05    function Get_PolymorphTable(Index: Integer): ITableInfo; safecall;
06    function Get_PolymorphField(Index: Integer): IFieldInfo; safecall;
07    property PolymorphCount: Integer read Get_PolymorphCount;
08    property PolymorphTable[Index: Integer]: ITableInfo read Get_PolymorphTable;
09    property PolymorphField[Index: Integer]: IFieldInfo read Get_PolymorphField;
10  end;