delphi dictionary example
uses System.Generics.Collections;
procedure TForm1.Button1Click(Sender: TObject);
var
MyDict: TDictionary<string, TForm>;
lEnum : String;
begin
MyDict:= TDictionary<string, TForm>.Create;
try
MyDict.Add('Form1', Self);
lEnum := 'Form1';
//show from key
ShowMessage(MyDict.Items[lEnum].name)
finally
MyDict.Free;
end;
end;