procedure TForm2.go_code1Timer(Sender: TObject);
begin try
go_code1.Enabled :=false;
oxGraphicButton1Click(FlatComboBox1);
except end;End;