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