anchor.diff:      function PopAction: TdbgpAction;
       function SendCommand(Command: string; Data: string): integer;
       procedure Prepare; override;
  -    procedure DoProcess;
  -    procedure Process; override;
  +    procedure DoExecute;
  +    procedure Execute; override;
       procedure Unprepare; override;
     public
       constructor Create(vConnector: TmnConnector; Socket: TmnCustomSocket); override;
  
positive.code:   end;
  end;
  
  procedure TdbgpGetWatches.Process(Respond: TdbgpRespond);
  begin
    inherited;
    DBGP.Lock.Enter;
    try
      Connection.Server.Watches[Current].Info.Value := Info.Value;
  
negative.code:   //Result := 'property_get -n "' + Name + '" -m 1024';
  end;
  
  procedure TdbgpCustomGetWatch.Execute(Respond: TdbgpRespond);
  const
    //sCmd = 'property';
    sCmd = 'response';
  var
    S: string;
  begin
    if Respond[sCmd] <> nil then
    begin
      S := Respond[sCmd].Value;
  