procedure Test1;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var pageControl : OleVariant;
  var panel : OleVariant;
  var DBEdit : OleVariant;
begin
  wndFrmFornecedores := Aliases.SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(277, 17);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(337, 15);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  panel := pageControl.TabSheet.Panel;
  panel.btn.ClickButton;
  DBEdit := panel.DBEdit5;
  DBEdit.Click(21, 7);
  DBEdit.SetText('4568');
  DBEdit := panel.DBEdit;
  DBEdit.Click(37, 1);
  DBEdit.Click(39, 15);
  DBEdit.SetText('GHFGHFGHFG');
  DBEdit := panel.DBEdit2;
  DBEdit.Click(103, 19);
  DBEdit.Click(83, 12);
  DBEdit.SetText('HGFHFGHFG');
  DBEdit := panel.DBEdit8;
  DBEdit.Click(75, 6);
  DBEdit.SetText('fghfghfghf');
  DBEdit := panel.DBEdit18;
  DBEdit.Click(27, 6);
  DBEdit.SetText('HFHFGHFGHFG');
  SATNav.Click(247, 12);
end;