
  VAR
    dpv$lock: [XREF] integer;
