varod:TObjectDictionary;pe:TObjectDictionary.TPairEnumerator;............od:=TObjectDictionary.Create;pe:=od.GetEnumerator;while pe.MoveNext dobeginif (pe.Current.Key = 1) or (pe.Current.Value='123') thenbegin//.......Break;end;end;