procedure Test1;
  var wndFrmFornecedores : OleVariant;
  var pageControl : OleVariant;
  var SATNav : OleVariant;
  var panel : OleVariant;
  var DBEdit : OleVariant;
begin
  wndFrmFornecedores := Aliases.SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(253, 12);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Endereço');
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(286, 35);
  panel := pageControl.Endere_o.Panel;
  DBEdit := panel.DBEdit9;
  DBEdit.Click(134, 8);
  DBEdit.SetText('72010030');
  panel.Click(257, 118);
  panel.DBEdit10.Drag(106, 15, -215, 0);
  panel.DBEdit11.Drag(131, 6, -392, 10);
  panel.DBEdit12.Drag(85, 12, -188, 6);
  panel.DBEdit13.Drag(55, 8, -150, 10);
  panel.DBEdit14.Drag(77, 9, -298, 18);
  SATNav.Click(192, 13);
end;