procedure Test1;
  var SATFornecedores : OleVariant;
  var SATNav : OleVariant;
  var wndFrmMain : OleVariant;
  var wndFrmParametrosDoSistema : OleVariant;
  var pageControl : OleVariant;
  var pageControl2 : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  SATNav := SATFornecedores.wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(484, 14);
  SATFornecedores.wndDlgFornecedores.Panel2.btnOK.ClickButton;
  wndFrmMain := Aliases.SAT.wndFrmMain;
  wndFrmMain.MainMenu.Click('Cadastros|[0]');
  wndFrmParametrosDoSistema := Aliases.SATParametrosDoSistema.wndFrmParametrosDoSistema;
  pageControl := wndFrmParametrosDoSistema.Panel.PageControl;
  pageControl.ClickTab('Cadastros');
  pageControl2 := pageControl.Cadastros.PageControl;
  pageControl2.ClickTab('Fornecedores');
  pageControl2.Fornecedores.GroupBox.check.ClickButton(cbChecked);
  wndFrmParametrosDoSistema.Panel2.btnF3Salvar.ClickButton;
  wndFrmMain.Panel.btnFornecedores.ClickButton;
  SATNav.Click(476, 24);
end;