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