procedure Test1;
  var SATFornecedores : OleVariant;
  var SATNav : OleVariant;
  var DBGrid : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  SATNav := SATFornecedores.wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(465, 24);
  DBGrid := SATFornecedores.wndDlgFornecedores.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 15;
  DBGrid.VScroll.Pos := 10;
  DBGrid.DblClick(110, 32);
  SATNav.Click(508, 23);
end;