procedure Test1;
  var SATFolhaDePgto : OleVariant;
  var frmFolha : OleVariant;
begin
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  frmFolha := SATFolhaDePgto.FrmFolha;
  frmFolha.GroupCheque.EditBanco.TJvBtnWinControl.Click(11, 9);
  SATFolhaDePgto.DlgBancos.Panel2.CmdOK.ClickButton;
  frmFolha.CmdPrintCH.ClickButton;
  SATFolhaDePgto.FrmDlg.Panel2.CmdOK.ClickButton;
end;