procedure TForm2.menu_update1Timer(Sender: TObject);
begin try
menu_update1.Enabled :=false;
File1Click(Sender);
Edit1Click(Sender);
View1Click(Sender);
except end;End;