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(288, 14);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(293, 14);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  panel := pageControl.TabSheet.Panel;
  DBEdit := panel.DBEdit18;
  DBEdit.Drag(85, 7, -237, 0);
  DBEdit.SetText('61999156641');
  DBEdit := panel.DBEdit13;
  DBEdit.Drag(82, 8, -189, 12);
  DBEdit.SetText('6133527058');
  pageControl.ClickTab('Endereço');
  panel := pageControl.Endere_o.Panel;
  DBEdit := panel.DBEdit7;
  DBEdit.Drag(62, 5, -135, 6);
  DBEdit.SetText('72010030');
  panel.Click(254, 115);
  pageControl.ClickTab('Observações');
  DBMemo := pageControl.Observa_es.Panel.Panel.DBMemo;
  DBMemo.Click(149, 42);
  DBMemo.Keys('teste inserç[D222]ao informaç[D222]ao observaç[D222]ao extra');
  SATNav.Click(204, 28);
end;