Найти ключ первого объекта по его содержимому
function FirstByObject(aObjectInt64: Int64; pSection: PInteger = nil): Int64;