Найти идентификатор следующего объектa по адресу
function NextByObject(aObjectInt64: Int64; pSection: PInteger = nil): Int64;