procedure TForm2.Label14Click(Sender: TObject);
begin try
sys_pop1.Popup(Left+Width-24,Top+TLabel(Sender).Height+104);
except end;End;