Ungültige Typumwandlung!!

[barf00s]

für das OnClick event musst du ne methode definieren...

Delphi-Quellcode:

procedure TDeineKlasse.DoClickStream(Sender: TObject);
begin
  case TMenuItem(Sender).Tag of
    0: ;
    1: ;
  end;
end;

...
  Items[I].Tag := I;
  Items[I].OnClick := DoClickStream;
...