var A:=TArrayEx<Integer>;
  A:=[1,2,3,4,5,4,3,2,1];
  var B:=A.IndexesOf(3);
  WritelLn('Found value 3 at indexes: '+B.ToString(','));

type
  TGroupAD = record
    NameAD:string;
    DescriptionAD:string;
  end;

begin
  var masGroumAD:=THashTable<string,TGroupAD>.Create;
  masGroumAD.UniqueKeys:=False;

  var Item:=Default(TGroupAD);
  for var i:=1 to 5 do begin
    Item.NameAD:='test'+i.ToString;
    masGroumAD.Add(Item.NameAD,Item);
  end;
  for var i:=4 downto 1 do begin
    Item.NameAD:='test'+i.ToString;
    masGroumAD.Add(Item.NameAD,Item);
  end;

  masGroumAD.UniqueKeys:=False;
  var Nums:=masGroumAD.NumsById('test3');
  WritelLn('Found value 3 at indexes: '+B.ToString(','));