anchor.diff:      function GetCommand: string; override;
       procedure DoExecute(Respond: TDebugCommandRespond); override;
     end;
  +
  +  { TdbgpGetWatch }
   
     TdbgpGetWatch = class(TdbgpCustomGetWatch)
     protected
  
positive.code:   end;
  
    // Breakpoints
  
    TdbgpSetBreakpoint = class(TdbgpAction)
    protected
  
negative.code:     destructor Destroy; override;
    end;
  
    { TdbgpStop }
  
    TdbgpStop = class(TdbgpAction)
    public
      function GetCommand: string; override;
      procedure DoExecute(Respond: TDebugCommandRespond); override;
    end;
  
    { TdbgpCustomGet }
  
    TdbgpCustomGet = class(TdbgpAction)
    public
      Info: TDebugWatchInfo;
    end;
    // Watches
  
    { TdbgpCustomGetWatch }
  
    TdbgpCustomGetWatch = class(TdbgpCustomGet)
    protected
  