procedure Test1;
  var SATFornecedores : OleVariant;
  var wndFrmFornecedores : OleVariant;
  var pageControl : OleVariant;
  var groupBox : OleVariant;
  var wndFrmPassWord : OleVariant;
  var edit : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  wndFrmFornecedores := SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(341, 16);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Banco de Dados');
  groupBox := pageControl.TabSheet2.GroupBox;
  groupBox.btn.ClickButton;
  wndFrmPassWord := SATFornecedores.wndFrmPassWord;
  edit := wndFrmPassWord.Edit;
  edit.Click(105, 8);
  edit.SetText(Project.Variables.Password1);
  wndFrmPassWord.btnOK.ClickButton;
  SATFornecedores.wndInforma_o.Panel1.Panel.SatSpeedButton.Click(37, 11);
  groupBox.Click(362, 219);
end;