PopupMenu的使用问题？

有个PopMenu，PopMenu下有两个MenuItem（Menu1和Menu2）我想PopMenu鼠标的光标滑动到Menu1的位置的时候自动在Menu1下动态生成几个MenuItem,应该怎么做？
procedure TForm3.SubMenu1Click(Sender: TObject);
var
AMenuItem:TMenuItem;
begin
   AMenuItem:= TMenuItem.Create(nil);
   AMenuItem.Caption :='Fuck';
   SubMenu1.Clear;
   SubMenu1.Add(AMenuItem);
end;
  SubMenu1.Add（AMenuItem）又触发SubMenu1Click事件，造成控件画不出，所以我想问有无什么好的解决办法？