procedure Test1;
  var SATFornecedores : OleVariant;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var DBGrid : OleVariant;
  var wndTfrmPrintPreview : OleVariant;
  var paperPreview : OleVariant;
  var pageControl : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  wndFrmFornecedores := SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(244, 18);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(465, 22);
  DBGrid := SATFornecedores.wndDlgFornecedores.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 5;
  DBGrid.DblClick(127, 103);
  SATNav.Click(519, 31);
  wndTfrmPrintPreview := SATFornecedores.wndTfrmPrintPreview;
  paperPreview := wndTfrmPrintPreview.Panel.PrintPreview.PaperPreview;
  paperPreview.Click(310, 317);
  paperPreview.MouseWheel(5, skCtrl);
  paperPreview.Click(579, 351);
  wndTfrmPrintPreview.Close;
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Dados do Fornecedor');
  pageControl.TabSheet.Panel.Click(513, 249);
end;