procedure Test1;
  var SATFornecedores : OleVariant;
  var wndFrmFornecedores : OleVariant;
  var pageControl : OleVariant;
  var SATNav : OleVariant;
  var DBGrid : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  wndFrmFornecedores := SATFornecedores.wndFrmFornecedores;
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  pageControl.TabSheet.Panel.Click(296, 268);
  wndFrmFornecedores.Drag(292, 18, -68, 38);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(474, 27);
  DBGrid := SATFornecedores.wndDlgFornecedores.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 5;
  DBGrid.Click(131, 128);
  DBGrid.VScroll.Pos := 7;
  DBGrid.DblClick(126, 134);
  SATNav.Click(418, 10);
end;