procedure Test1;
  var TDBNavigator : OleVariant;
  var navButton : OleVariant;
begin
  TDBNavigator := Aliases.SATFolhaDePgto.FrmFolha.NavMes;
  navButton := TDBNavigator.TNavButton;
  navButton.DblClick(28, 8);
  navButton.Click(28, 8);
  navButton := TDBNavigator.TNavButton2;
  navButton.DblClick(29, 8);
  navButton.Click(29, 8);
  TDBNavigator.TNavButton3.Click(30, 11);
  TDBNavigator.TNavButton4.Click(18, 13);
end;