procedure Test1;
  var SATFolhaDePgto : OleVariant;
begin
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  SATFolhaDePgto.FrmFolhaVa.Close;
  SATFolhaDePgto.FrmFolha.EditExibirPgtos.ClickButton;
  SATFolhaDePgto.FrmFolhaPg.Grid.Click(211, 109);
end;