Schnittmenge bilden von 2 Mengen???

[webmarathon]

hallo

ich will gerade die Schnittmengen bilden von 2 Mengen. Eigentlich ist das Zeichen doch * aber irgendwie sagt der andauernd, Operator ist auf Operandentyp nicht anwendbar. Weiß jemand was da falsch ist?

Delphi-Quellcode:

var
  Form1: TForm1;
  mengea: Tmengea;
  mengefe: Tmengefe;        //Menge Feuer
  mengewa: Tmengewa;        //Menge wasser


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
  var fewa:char;
begin
  mengea:=[];
  mengefe:=Feuer;
  mengewa:=Wasser;
  fewa:=mengefe*mengewa;