原来是这里出错:PopupMenu1.Popup (P.x,P.y);
当一显示菜单时就出错,为什么会这样的,是delphi5的bug还是我的程序有错