procedure Test1;
  var SATFornecedores : OleVariant;
  var wndDlgFornecedores : OleVariant;
  var DBGrid : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  SATFornecedores.wndFrmFornecedores.Panel.SATNav.Click(463, 19);
  wndDlgFornecedores := SATFornecedores.wndDlgFornecedores;
  DBGrid := wndDlgFornecedores.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 19;
  DBGrid.Click(159, 187);
  wndDlgFornecedores.Panel2.btnOK.ClickButton;
end;