delphi用PopupMenu1控件删除stringgri