怎样获取动态生成的菜单的onclick事件

var
  n:array[1..10] of TMenuItem;
procedure Ttongxunlu.FormCreate(Sender: TObject);
var
  i:integer;
begin
  self.ADODataSet2.Close;
  self.ADODataSet2.CommandText:='select groupname from group';
  self.ADODataSet2.Open;
  for i:=1 to self.ADODataSet2.RecordCount do   
  begin
    n[i]:=TmenuItem.Create(self);
    n[i].Caption:=self.ADODataSet2.fieldbyname('groupname').AsString;
    n[i].OnClick:=niclick;
    n10.Add(n[i]); //添加为n10的子菜单
    self.ADODataSet2.Next;
  end;
end;procedure Ttongxunlu.niclick(Sender:TObject);
begin
  ////在这里怎么判断click的是哪个子菜单呢
  ////例如如果点击的是n[2],那么要返回n[2]的caption，该怎么写呢
end;