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