在其它Button中的调用方法
procedure TFastOpenFr.Button1Click(Sender: TObject);
begin
N1Click(Self);
end;

Popup右键菜单中如何实现单选或多选，单选前是实心黑点，多选前是勾，类似系统桌面右键中的查看或排序方式
注：无法直接实现，需要配合代码实现，
多选(默认就是，无需设置属性)，只需以菜单的onclick事件将Checked属性设为true前就会有勾了，代码：
if N2211.Checked=True then
 N2211.Checked:=False 
else  
 N2211.Checked:=True;
单选，几个菜单的互斥的，选中一个，其它取消选择，
要先把这几个互斥菜单的GroupIndex设成相同，如都是10，还要将其RadioItem都设为true，然后再在onclick事件设置checked属性，代码同多选
 if N1121.Checked=True then
  N1121.Checked:=False
 else
  N1121.Checked:=True;
注：要设置单选或多选的默认值时，可在属性中将指定项的checked设为true即可