procedure Test1;
  var TDBNavigator : OleVariant;
  var navButton : OleVariant;
  var navButton2 : OleVariant;
begin
  TDBNavigator := Aliases.SATFolhaDePgto.FrmFolha.NavAno;
  TDBNavigator.TNavButton4.Click(28, 7);
  TDBNavigator.TNavButton3.Click(15, 10);
  navButton := TDBNavigator.TNavButton;
  navButton.DblClick(35, 12);
  navButton.DblClick(35, 12);
  navButton.DblClick(35, 12);
  navButton.DblClick(32, 10);
  navButton.DblClick(32, 10);
  navButton.DblClick(32, 10);
  navButton.DblClick(32, 10);
  navButton.Click(32, 10);
  navButton2 := TDBNavigator.TNavButton2;
  navButton2.DblClick(20, 8);
  navButton2.DblClick(20, 8);
  navButton.DblClick(22, 11);
  navButton.DblClick(21, 10);
end;