procedure TForm1.ToolButton1Click(Sender: TObject);
      var
        A: TMap<integer, boolean>;
        AIndexOf: integer;
        B: TKeyPair<integer,boolean>;
      begin
        A := TMap<integer, boolean>.Create();
        try
          '=========== Заполняем =================='.Output(edLog);
          for AIndexOf := 0 to 10 do
            begin
              A.Add(AIndexOf, false);
            end;
          for B in A do
            '%d: %s'.format([B.Key, B.Value.ToString(true)]).Output(edLog);
          '=========== Обновляем =================='.Output(edLog);
          for B in A do
            begin
              if (not Odd(B.Key)) then continue;
              A.AddOrSetValue(B.Key, true);
            end;
          '=========== Проверяем =================='.Output(edLog);
          for B in A do
            '%d: %s'.format([B.Key, B.Value.ToString(true)]).Output(edLog);

        finally
          System.SysUtils.FreeAndNil(A);
        end;
      end;

=========== Заполняем ==================
3: False
9: False
4: False
10: False
5: False
0: False
2: False
1: False
7: False
8: False
6: False
=========== Обновляем ==================
=========== Проверяем ==================
3: True
9: True
4: False
10: False
5: True
0: False
2: False
1: True
7: True
8: False
6: False