procedure Test1;
  var SATFolhaDePgto : OleVariant;
begin
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  SATFolhaDePgto.FrmFolha.CmdPrintCHPF.ClickButton;
  SATFolhaDePgto.FrmDlg.Panel2.CmdOK.ClickButton;
  SATFolhaDePgto.FrmDlgInformacao.Panel1.pnlRodape.btnSim.ClickButton;
end;