Найти ключ следующего объектa по его содержимому
function NextByObject(aObjectPtr: TObject; pSection: PInteger = nil; GroupStrPtr: PString = nil): string;