procedure Test1;
  var SATFolhaDePgto : OleVariant;
  var frmFolhaVa : OleVariant;
  var TDBGrid : OleVariant;
begin
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  SATFolhaDePgto.FrmFolha.CmdExibirVales.ClickButton;
  frmFolhaVa := SATFolhaDePgto.FrmFolhaVa;
  TDBGrid := frmFolhaVa.Grid;
  TDBGrid.VScroll.Pos := 4;
  TDBGrid.Click(292, 191);
  frmFolhaVa.CmdFechar.ClickButton;
end;