anchor.diff:    public
       BreakpointID: integer;
       function GetCommand: string; override;
  +  end;
  +
  +  { TdbgpSetBreakpoints }
  +
  +  TdbgpSetBreakpoints = class(TdbgpSetBreakpoint)
  +  protected
  +  public
  +    Current: Integer;
  +    function Enabled: Boolean; override;
  +    function Stay: Boolean; override;
     end;
   
   //* Watches
  
positive.code:     procedure DoExecute(Respond: TDebugCommandRespond); override;
    end;
  
    { TdbgpSetBreakpoints }
  
    TdbgpSetBreakpoints = class(TdbgpSetBreakpoint)
    protected
    public
      Current: integer;
      function Enabled: boolean; override;
      function Stay: boolean; override;
    end;
  
    { TdbgpRemoveBreakpoint }
  
    TdbgpRemoveBreakpoint = class(TdbgpAction)
  
negative.code: 
  procedure TdbgpDebug.StepOver;
  begin
    FServer.AddAction(TdbgpSetBreakpoints.Create);
    FServer.AddAction(TdbgpStepOver.Create);
    FServer.AddAction(TdbgpGetWatches.Create);
    FServer.AddAction(TdbgpGetCurrent.Create);
  