procedure Test1;
  var SATFolhaDePgto : OleVariant;
  var jvComboEdit : OleVariant;
  var dlgFunc : OleVariant;
  var panel : OleVariant;
  var edit : OleVariant;
begin
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  jvComboEdit := SATFolhaDePgto.FrmFolha.GroupBox1.EditMAtr;
  jvComboEdit.Drag(33, 6, -45, 6);
  jvComboEdit.Keys('12[Enter]');
  jvComboEdit.TJvBtnWinControl.Click(8, 9);
  dlgFunc := SATFolhaDePgto.DlgFunc;
  dlgFunc.Close;
  jvComboEdit.Keys('^[Enter]');
  panel := dlgFunc.pnlTop;
  edit := panel.EditCodigo;
  edit.Click(19, 11);
  edit.SetText('12');
  panel.CmdProcurar.ClickButton;
  dlgFunc.pnlBottom.CmdOK.ClickButton;
end;