anchor.diff:  procedure TdbgpConnection.Prepare;
   begin
     inherited;
  +  Server.Breakpoints.Clean;
  +
     FSpool.Add(TdbgpInit.Create);
     FSpool.Add(TdbgpFeatureSet.CreateBy('show_hidden', '1'));
     FSpool.Add(TdbgpFeatureSet.CreateBy('max_depth', IntToStr(Server.StackDepth)));
  
positive.code: 
  procedure TdbgpSetBreakpoints.DoExecute(Respond: TDebugCommandRespond);
  begin
    inherited;
    if Delete then
      Connection.Server.Breakpoints[Current].ID := 0
    else
      Connection.Server.Breakpoints[Current].ID := BreakpointID;
  end;
  
  { TdbgpSetBreakpoint }
  
  function TdbgpModifyBreakpoint.GetCommand: string;
  begin
    if Delete then
      Result := 'breakpoint_remove -d ' + IntToStr(BreakpointID)
    else
      Result := 'breakpoint_set -t line -n ' + IntToStr(FileLine) + ' -f ' + FileNameToURI(FileName) + '';
  end;
  
  procedure TdbgpModifyBreakpoint.DoExecute(Respond: TDebugCommandRespond);
  begin
    if Delete then
    else
    begin
      CheckError(Respond);
      BreakpointID := StrToInt(Respond.Root.Attributes['id']);
    end;
  end;
  
  { TdbgpRemoveBreakpoint }
  
negative.code:     procedure DoExecute(Respond: TDebugCommandRespond); override;
    end;
  
    { TdbgpRemoveBreakpoint }
  
    TdbgpRemoveBreakpoint = class(TdbgpAction)
  