TDictionary problem mit Types

[EWeiss]

Die Types

Delphi-Quellcode:

  TDeviceIcon = (DesktopMicrophone, Digital, Headphones, Headset,
    Kinect, LineIn, Phone, Speakers, StereoMix, Monitor, Unknown);

  TIndex = string;
  TIconMap = TDictionary<TDeviceIcon, TIndex>;

Ich definiere die Procedure so.
Warum wird dann der Type DeviceIcon ignoriert bzw.. es wird ein Fehler gemeldet.

Delphi-Quellcode:

procedure TAudioVolume.Dictionary(Index: TIndex; DeviceIcon: TDeviceIcon);
var
  IconMap: TDictionary<DeviceIcon, Index>;

Nach meinem Verständnis sollte das eigentlich OK sein aber der Compiler will unbedingt TDeviceIcon, TIndex.

Das schlägt also fehl..

Delphi-Quellcode:

    IconMap := TDictionary<DeviceIcon, Index>.Create();
    IconMap.Add(DeviceIcon.Speakers, '0');
    IconMap.Add(DeviceIcon.Speakers, '1');

Auch das hier!
    IconMap.Add(DeviceIcon.Speakers, '1');

Aber ich brauche diesen Eintrag mehrmals..
Deshalb weil das Icon mehrmals in der Ressource vorhanden ist.

RESSOURCENNAME 3004
RESSOURCENNAME 3010
RESSOURCENNAME 3019
RESSOURCENNAME 3030
RESSOURCENNAME 3050

Ich muss jedem einzelnen den Type DeviceIcon.Speakers zuweisen.

gruss