procedure Test1;
  var wndFrmFornecedores : OleVariant;
  var pageControl : OleVariant;
  var SATNav : OleVariant;
  var DBMemo : OleVariant;
begin
  wndFrmFornecedores := Aliases.SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(209, 14);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Observações');
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(283, 28);
  DBMemo := pageControl.Observa_es.Panel.Panel.DBMemo;
  DBMemo.Click(157, 41);
  DBMemo.Keys('teste de observaç[D222]oes brabas escr[BS]ritas a[BS]para esse fornecedor');
  SATNav.Click(199, 10);
end;