Mengenvariable füllen?

[rayman]

Hallo zusammen.

Gibt es eine Möglichkeit eine Menge also ein
var mySet: set of TSetBase; mit allen Elementen von TSetBase zu füllen?

Für Ordinaltypen ist das ja kein Problem:

Delphi-Quellcode:

var mySet: set of byte;
..
mySet := [0..255];

Aber wie mache ich das bei Typen wie
TBaseSet = (Apfel, Birne, Kirsche, Orange, Zitrone); , wenn sehr viele Elemente (Früchte) im Grundtypen sind. Gibts da einen Trick?

Ich hab Delphi 6.