procedure Test1;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var pageControl : OleVariant;
  var panel : OleVariant;
  var DBEdit : OleVariant;
  var DBMemo : OleVariant;
begin
  wndFrmFornecedores := Aliases.SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(278, 13);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(286, 24);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  panel := pageControl.TabSheet.Panel;
  DBEdit := panel.DBEdit18;
  DBEdit.Click(50, 10);
  DBEdit.SetText('6133527058');
  DBEdit := panel.DBEdit13;
  DBEdit.Click(61, 9);
  DBEdit.SetText('61999141797');
  SATNav.Click(202, 17);
  SATNav.Click(563, 14);
  DBMemo := Aliases.SATLogDeEventos.wndFrmLog.Panel2.DBMemo;
  DBMemo.Drag(298, 55, -306, -53);
  DBMemo.Click(324, 56);
end;