1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

uses typInfo;

TYPE Elemente = (aa, bb, cc, dd, ee, ff, gg); 

var sl:TStringList;
     ElementInfo: PTypeData;
...
ElementInfo:= TypeInfo(Elemente); // RTTI info zu elemente holen
for I := low(Elemente ) to high(Elemente) do sl.add(GetEnumName(ElementInfo, I));
...
// und so kannst du die einträge dann ansteuern
showMessage(sl[integer(cc)]); // zB.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

 testauto.Autotest1.ComboBox2.Text := 'Auflösung wählen';
  //ShowMessage('comboBox1 Click');
  //Prüfen welche Encoder Familie gewählt würde
 text := testauto.Autotest1.ComboBox1.Text;
 if text = 'C2' then begin
 a := 1;
 end;
 StrList := TStringList.Create;
 case Bustyp of
  CANopen: begin
           case text of
             C2: begin      //mit dem Integer Wert gehts aber des ist mir zu unübersichtlich, ich sag nur Lesbarkeit
                 StrList.CommaText := '0012 0013 0014 0015 0016';
                 testauto.Autotest1.ComboBox2.Items := StrList;
                 end;
             end;
  end;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var   actElement:TElement; // in delphi immer ein T vor typen

procedure TFomr1.ComboBoxChanded(sender:TObject);
begin
  actElement := TElement(comboBox.itemIndex); // wie gesagt elemente eines enum-types sind nur nummern, die hier sogar dem index entsprechen
  ...
  case actElement of
    aa: bla;
    bb: blub;
  else showMessage('Ungültig');
  end;
end;