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