procedure Test1;
  var SATFornecedores : OleVariant;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var pageControl : OleVariant;
  var panel : OleVariant;
  var DBEdit : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  wndFrmFornecedores := SATFornecedores.wndFrmFornecedores;
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(321, 13);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  panel := pageControl.TabSheet.Panel;
  panel.btn.ClickButton;
  panel.DBEdit5.SetText('666');
  DBEdit := panel.DBEdit;
  DBEdit.Click(26, 15);
  DBEdit.SetText('Lucas Felix');
  SATNav.Click(199, 17);
  SATFornecedores.wndAten_o.Panel1.Panel.SatSpeedButton.Click(39, 17);
  panel.DBEdit2.SetText('Lucas Felix');
  SATNav.Click(207, 19);
end;