popupmenu中的item的tag问题(50分)

我有一个popupmenu，如果所有的菜单项公用一个onclick事件，
怎样才能在onclick事件中得到当前选中的菜单项的tag和caption 属性?
我用了下面一段程序，但是不起作用
procedure TForm1.N101Click(Sender: TObject);
var MenuItem:TMenuItem;
begin
If sender is TmenuItem then
begin
Case MenuItem.tag of
10: showmessage('10');
11: showmessage('11');
end;
end;
end;

If sender is TmenuItem then
begin
Case (Sender As MenuItem).tag of
^^^^^^^^^^^^^^^^^^^^
10: showmessage('10');
11: showmessage('11');
end;
end;
或者：
If sender is TmenuItem then
begin
Case (Sender As MenuItem).MenuIndex of
0: showmessage('10');
1: showmessage('11');
end;
end;

Case语句写错啦：
Case (Sender As TMenuItem).tag of
^^^^^^^^^^^^^^^^^^^^

接受答案了.