procedure TForm2.fav_con1Popup(Sender: TObject);
begin try
AdstoFavorites1.Enabled :=(Notebook1.PageIndex <> 1)and(Notebook1.PageIndex <> 4)and(Notebook1.PageIndex <> 10);
except end;End;