procedure Test1;
  var SATFolhaDePgto : OleVariant;
  var wnd : OleVariant;
  var wndDlgFunc : OleVariant;
  var DBGrid : OleVariant;
begin
  Aliases.SAT.wndFrmMain.MainMenu.Click('Cadastros|[6]');
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  wnd := SATFolhaDePgto.wndFrmFolha.GroupBox.Item;
  wnd.JvBtnWinControl.Click(10, 9);
  wndDlgFunc := SATFolhaDePgto.wndDlgFunc;
  wndDlgFunc.Panel2.btnF2Procurar.ClickButton;
  DBGrid := wndDlgFunc.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 1;
  DBGrid.Click(243, 169);
  wndDlgFunc.Panel.btnOK.ClickButton;
  wnd.Click(24, 8);
end;