Generics.Collections.TDictionary

program sample_dict1;

{$APPTYPE CONSOLE}

uses
  Generics.Collections;

var
  dict: TDictionary<string,string>;
  s: string;

begin
  dict := TDictionary<string,string>.Create;
  try
    dict.Add('でるふぁい', 'Delphi');
    dict.Add('hoge', 'ふが');
    Writeln(dict.ToString);
    for s in dict.Keys do
      Writeln(dict[s]);
  finally
    dict.Free;
  end;
end.

output

TDictionary<System.string,System.string>
Delphi
ふが