Найти ключ следующего объекта
function Next(ObjectInt64Ptr: PInt64 = nil; pSection: PInteger = nil): Int64;