Сообщение от
randrews
Пример перечисления всех полей ключевых (FieldRef):
KeyRef := RecordRef.KEYINDEX(1);
FOR i := 1 TO KeyRef.FIELDCOUNT DO BEGIN
FieldRef := KeyRef.FIELDINDEX(i);
END;
Да... забыл сказать

CU Change Log Management в свое время помог разобраться во разных Ref-ах
Может и Вам сгодится