Kompletten Type in Combobox, Variable Werte

[ChEeTaH]

Hi
in meinem Programm muss der Benutzer aus einer festgelegten Anzahl von Werten eines selbst definierten Typs auswählen.
ich habe eine Combobox, die ich gerne mit Werten dieses Typs füttern möchte.

Beispiel:

type FruchtTyp = (Banane, Apfel, Birne, Kiwi); Jetzt habe ich eine Funktion, die den Ordinalwerten einen String zuordnet:

Delphi-Quellcode:

function FruchtTypToStr(FruchtTyp: FruchtTyp): String;
begin
  Case FruchtTyp of
   Banane: FruchtTypToStr := 'Banane';
   Apfel: FruchtTypToStr := 'Apfel';
   Birne: FruchtTypToStr := 'Birne';
   Kiwi: FruchtTypToStr := 'Kiwi';
  end;
end;

Wie kann ich alle Werte (Anzahl variabel, hab keine Lust jedesmal alle Comboboxen zu aktualisieren^^) über die Funktion FruchtTypToStr in eine ComboBox hinzufügen?
Gibts es eine Art Count Methode? Dann könnte ich mit einer simplen For-Schleife alle Einträge hinzufügen.


2. Problem:
Wie finde ich heraus, was der Benutzer ausgewählt hat? Meine Combobox ist nach Alphabet geordnet.

Danke schonmal.