procedure Test1;
  var frmFornecedores : OleVariant;
  var TSATNav : OleVariant;
  var speedButton : OleVariant;
begin
  frmFornecedores := Aliases.SATFornecedores.FrmFornecedores;
  TSATNav := frmFornecedores.pnlBottom.DBNav;
  speedButton := TSATNav.CmdNext;
  speedButton.DblClick(23, 18);
  speedButton.DblClick(23, 18);
  TSATNav.CmdPrior.DblClick(27, 17);
  TSATNav.CmdLast.Click(26, 22);
  TSATNav.CmdFirst.Click(26, 24);
  frmFornecedores.Click(214, 24);
end;