procedure Test1;
  var SATFornecedores : OleVariant;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var DBGrid : OleVariant;
  var pageControl : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  wndFrmFornecedores := SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(315, 18);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(28, 10);
  SATNav.Click(27, 22);
  SATNav.Click(466, 15);
  DBGrid := SATFornecedores.wndDlgFornecedores.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 5;
  DBGrid.DblClick(140, 101);
  SATNav.DblClick(415, 17);
  SATNav.Click(415, 17);
  SATNav.Click(120, 23);
  SATNav.Click(23, 20);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  pageControl.TabSheet.Panel.Click(506, 243);
end;