procedure Test1;
  var SATNav : OleVariant;
begin
  SATNav := Aliases.SATFornecedores.wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(100, 30);
  SATNav.Click(104, 19);
  SATNav.Click(71, 21);
  SATNav.Click(67, 21);
  SATNav.Click(153, 21);
  SATNav.Click(20, 27);
end;