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