Найти ключ первого объекта
function First(aObjectPtr: PObject = nil; pGroupStr: PString = nil; pSection: PInteger = nil): string;