> Not sure if there are others failing as well, but the one above
> obviously make troubles.

Another one in:

procedure SchemaIndexSegmentsInfo( Cn: TIB_Connection;
Tr: TIB_Transaction;
Names: TStrings;
IndexName: string );

Replace:

SQL.Add( 'SELECT RDB$INDEX_SEGMENTS.RDB$FIELD_NAME' );

With:

SQL.Add( 'SELECT S.RDB$FIELD_NAME' );


HTH,
Thomas