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