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