procedure Test1;
  var SATFornecedores : OleVariant;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var pageControl : OleVariant;
  var panel : OleVariant;
  var DBEdit : OleVariant;
  var DBEdit2 : OleVariant;
  var panel2 : OleVariant;
  var DBMemo : OleVariant;
  var groupBox : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  wndFrmFornecedores := SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(309, 12);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(338, 26);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  panel := pageControl.TabSheet.Panel;
  DBEdit := panel.DBEdit5;
  DBEdit.Click(5, 5);
  DBEdit.Keys('444');
  panel.btn.ClickButton;
  DBEdit.Click(21, 8);
  DBEdit.SetText('444');
  DBEdit := panel.DBEdit;
  DBEdit.Click(18, 13);
  DBEdit.SetText('TESTE NOVO FORNCEDOR');
  DBEdit := panel.DBEdit2;
  DBEdit.Click(28, 10);
  DBEdit.SetText('TESTE FONRCEDORZAOZAO');
  DBEdit := panel.DBEdit8;
  DBEdit.Click(103, 16);
  DBEdit.SetText('gdfgdfgdf@gmail.com');
  DBEdit := panel.DBEdit16;
  DBEdit.Click(85, 12);
  DBEdit.Click(26, 5);
  DBEdit.SetText('09376659000111');
  DBEdit := panel.DBEdit17;
  DBEdit.Click(79, 14);
  DBEdit.SetText('074994500134');
  DBEdit2 := panel.DBEdit18;
  DBEdit2.Click(73, 12);
  DBEdit2.SetText('61999141797');
  DBEdit2 := panel.DBEdit19;
  DBEdit2.Click(20, 20);
  DBEdit2.Click(27, 16);
  DBEdit2.SetText('6133522773');
  DBEdit2 := panel.DBEdit13;
  DBEdit2.Click(66, 12);
  DBEdit2.SetText('6133527058');
  panel2 := pageControl.Endere_o.Panel;
  DBEdit2 := panel2.DBEdit7;
  DBEdit2.Click(47, 12);
  DBEdit2.SetText('72010030');
  panel2.Click(249, 114);
  DBEdit2 := panel2.DBEdit8;
  DBEdit2.Click(115, 1);
  DBEdit2.Click(88, 14);
  DBEdit2.SetText('brasil');
  pageControl.ClickTab('Observações');
  DBMemo := pageControl.Observa_es.Panel.Panel.DBMemo;
  DBMemo.Click(115, 28);
  DBMemo.Keys('dsfgdsghdfhghfghg fg hgf hfghfg hfg hfg hfghfghfg hfggfhghhfghgfhfg ');
  pageControl.ClickTab('Contábil');
  groupBox := pageControl.Cont_bil.GroupBox;
  groupBox.JvDBComboBox.Click(332, 11);
  DBEdit2 := groupBox.DBEdit;
  DBEdit2.Click(46, 9);
  DBEdit2.SetText('654564656521');
  DBEdit2.Keys('156156');
  pageControl.ClickTab('Dados do Fornecedor');
  DBEdit2 := panel.DBEdit20;
  DBEdit2.Click(20, 13);
  DBEdit2.SetText('1651651561561561561561651');
  DBEdit2.Keys('65165165');
  SATNav.Click(176, 18);
  SATFornecedores.wndAten_o.Panel1.Panel.SatSpeedButton.Click(35, 25);
  DBEdit.Drag(87, 15, -131, 0);
  DBEdit.SetText('0749944500134');
  SATNav.Click(192, 22);
end;