procedure Test1;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var pageControl : OleVariant;
begin
  wndFrmFornecedores := Aliases.SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(278, 23);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(152, 17);
  SATNav.Click(28, 23);
  SATNav.Click(101, 23);
  SATNav.Click(101, 23);
  SATNav.Click(101, 23);
  SATNav.Click(101, 23);
  SATNav.DblClick(101, 23);
  SATNav.Click(101, 23);
  SATNav.DblClick(70, 28);
  SATNav.DblClick(71, 27);
  SATNav.DblClick(72, 27);
  SATNav.Click(72, 27);
  SATNav.Click(142, 23);
  SATNav.Click(24, 25);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  pageControl.TabSheet.Panel.Click(345, 270);
end;