У ADODB.Connection есть функция OpenSchema(en), где
(en) значение Enum-а SchemaEnum, определяющего тип запрашиваемых данных.

Не знаю как на Delphi, но на VBasic-е, получить данные из системной таблицы MSYSRelationships можно так:

Dim objCon As ADODB.Connection
Dim rs As ADODB.Recordset
Set objCon = New ADODB.Connection
Set rs = objCon.OpenSchema(adSchemaForeignKeys)

полученный набор данных содержит всю необходимую информацию о связях таблиц (FK_NAME, FK_TABLE_NAME, PK_TABLE_NAME, FK_COLUMN_NAME, PK_COLUMN_NAME).