procedure Test1;
  var wndFrmFornecedores : OleVariant;
  var pageControl : OleVariant;
  var SATNav : OleVariant;
begin
  wndFrmFornecedores := Aliases.SATFornecedores.wndFrmFornecedores;
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Observações');
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(285, 32);
  pageControl.Observa_es.Panel.Panel.DBMemo.Keys('TYes[BS][BS][BS]este da Sat Sistemas[BS][BS][BS][BS][BS][BS][BS][BS][BS]');
  SATNav.Click(193, 12);
end;