procedure Test1;
  var SATFornecedores : OleVariant;
  var pageControl : OleVariant;
  var frmPassWord : OleVariant;
begin
  Aliases.SAT.FrmMain.MainMenu.Click('Cadastros|[9]');
  SATFornecedores := Aliases.SATFornecedores;
  pageControl := SATFornecedores.FrmFornecedores.pnlClient.PC;
  pageControl.ClickTab('Observações');
  pageControl.ClickTab('Banco de Dados');
  pageControl.tbBancoDeDados.GroupBox23.CmdAtualizarStoredProcedureEmitir.ClickButton;
  frmPassWord := SATFornecedores.FrmPassWord;
  frmPassWord.EditSenha.SetText('satsat');
  frmPassWord.CmdOK.ClickButton;
end;