Kompletten Type in Combobox, Variable Werte

[ChEeTaH]

Danke für die schnelle Antwort.
Wie kann ich das mit einer For schleife lösen?

Delphi-Quellcode:

   
for I := 0 to succ(ord(high(FruchtTyp))) - 1 do
begin
  Showmessage(FruchttypToStr(ord(i)));
end;

Gibts eine Umkehrfunktion von ord?