Класс для быстрого поиска Int64 по строке
type TStringHashContainerInt64Object = record ObjectKey: string; ObjectInt64: Int64; end;