procedure TForm1.SpeedButton1Click(Sender: TObject);
begin try
NoteBook1.PageIndex :=TButton(Sender).Tag;
except end;End;