procedure Test1;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var pageControl : OleVariant;
  var groupBox : OleVariant;
  var DBEdit : OleVariant;
begin
  wndFrmFornecedores := Aliases.SATFornecedores.wndFrmFornecedores;
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(298, 21);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Endereço');
  groupBox := pageControl.Endere_o.Panel.GroupBox;
  groupBox.check.ClickButton(cbChecked);
  DBEdit := groupBox.DBEdit;
  DBEdit.Click(36, 12);
  DBEdit.SetText('Teste');
  SATNav.Click(192, 32);
end;