procedure Test1;
  var SATFolhaDePgto : OleVariant;
  var frmFolha : OleVariant;
  var dlgImprimir : OleVariant;
begin
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  frmFolha := SATFolhaDePgto.FrmFolha;
  frmFolha.GroupBox1.DBCheckBox1.ClickButton(cbUnchecked);
  frmFolha.DBEdit.TNavButton.Click(12, 9);
  frmFolha.CmdGFolha.ClickButton;
  frmFolha.EditImprimirContraCheque.ClickButton;
  dlgImprimir := SATFolhaDePgto.dlgImprimir;
  dlgImprimir.Close;
  frmFolha.cmdImprimirRecibo.ClickButton;
  dlgImprimir.Close;
  
end;