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;

procedure Test2;
  var frmMain : OleVariant;
  var frmFuncV : OleVariant;
  var jvComboEdit : OleVariant;
  var edit : OleVariant;
  var SATFolhaDePgto : OleVariant;
  var TDBGrid : OleVariant;
begin
  frmMain := Aliases.SAT.FrmMain;
  frmMain.MainMenu.Click('Utilitários|[8]');
  frmFuncV := Aliases.SATLancarValeAvulsoParaFuncionarios.FrmFuncV;
  jvComboEdit := frmFuncV.EditMatr;
  jvComboEdit.Click(20, 14);
  jvComboEdit.Keys('1[Enter]');
  edit := frmFuncV.EditHist;
  edit.SetText('Teste');
  edit.Keys('[Enter]');
  frmFuncV.EditVal.SetText('1,99');
  frmFuncV.CmdOK.ClickButton;
  frmMain.MainMenu.Click('Cadastros|[5]');
  OCR.Recognize(Aliases.explorer.wndShell_TrayWnd.ReBarWindow32.MSTaskSwWClass.MSTaskListWClass).BlockByText('Sot', spLeftMost).Click;
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  SATFolhaDePgto.FrmFolha.CmdExibirVales.ClickButton;
  TDBGrid := SATFolhaDePgto.FrmFolhaVa.Grid;
  TDBGrid.VScroll.Pos := 5;
  TDBGrid.Click(269, 131);
end;