Enums vereinen

[Highttower]

Hallo zusammen,

ich suche eine Möglichkeit ein Enum, um Datentypen zu erweitern. Also quasi davon abzuleiten und dann etwas hinzu fügen.

Um das Ganze zu verdeutlichen hier ein kleines Beispiel dazu:

Delphi-Quellcode:

    TObst = (Apfel, Birne, Pflaume);

    TGemuese = (Moehre, Lauch, Gurke);

    TGesundeSachen = set of TObst AND TGemuese;

implementation

procedure TForm6.FormCreate(Sender: TObject);
var aSchale : TGesundeSachen;
    tmp : String;
begin
    aSchale := [Moehre, Apfel];
    tmp := '';
    case aSchale of
        Apfel:
            tmp := tmp + 'Apfel, ';
        Birne:
            tmp := tmp + 'Birne, ';
        Pflaume :
            tmp := tmp + 'Pflaume, ';
        Moehre:
            tmp := tmp + 'Moehre, ';
        Lauch:
            tmp := tmp + 'Lauch, ';
        Gurke:
            tmp := tmp + 'Gurke, ';
    end;
    ShowMessage('Der Obstsalat enthält ' + tmp);
end;

Wie ihr seht versuche ich Obst und Gemüse auf diese Art zusammen bekommen? Das funktioniert aber nicht werder mit OR, noch mit AND, noch mit einem Komma. Geht sowas in Delphi(2007) überhaupt?

Vielen Dank,

Tobi