anchor.diff:    Result := 'init';
   end;
   
  -procedure TdbgpInit.Process(Respond: TdbgpRespond);
  -begin
  -  inherited;
  +procedure TdbgpInit.Execute(Respond: TdbgpRespond);
  +begin
     DBGP.Lock.Enter;
     try
       Connection.Server.Watches.Clean;
  
positive.code:     procedure CheckError(Respond: TdbgpRespond);
      function GetCommand: string; virtual;
      function GetData: string; virtual;
      procedure Process(Respond: TdbgpRespond); virtual;
      procedure Created; virtual; //after create it
      procedure Prepare; virtual; //after pop from spool
      function Stay: boolean; virtual;
  
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;
  