procedure OpenWith(WithBase: DispRange);
  extern;

procedure WithReference(WithBase: DispRange);
  extern;

procedure CloseWith;
  extern;

procedure InitWith;
  extern;