Yo uso algo parecido a lo que hace HECTOR, pero sin usar Object.
He aquí como yo lo hago:
Código Delphi
[-]
type
TMiTipoNumerado = (tnUno, tnDos, tnTres);
procedure TMainForm.FormCreate(Sender: TObject);
begin
ComboBox1.Add('Uno');
ComboBox1.Add('Dos');
ComboBox1.Add('Tres');
ComboBox1.ItemIndex := 0
end;
procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
VariableDeTipoNumerado := TMiTipoNumerado(ComboBox1.ItemIndex)
end;
En este caso solo hay que tener cuidado que los items en el combobox tengan el mismo orden que en el tipo numerado.
Saludos...