anchor.diff:      procedure DoExecute(Respond: TDebugCommandRespond); override;
     end;
   
  +  { TdbgpStepOver }
  +
     TdbgpStepOver = class(TdbgpAction)
     public
       function GetCommand: string; override;
       procedure DoExecute(Respond: TDebugCommandRespond); override;
     end;
   
  +  { TdbgpStepInto }
  +
     TdbgpStepInto = class(TdbgpAction)
     public
       function GetCommand: string; override;
       procedure DoExecute(Respond: TDebugCommandRespond); override;
     end;
   
  +  { TdbgpStepOut }
  +
     TdbgpStepOut = class(TdbgpAction)
     public
       function GetCommand: string; override;
       procedure DoExecute(Respond: TDebugCommandRespond); override;
     end;
  +
  +  { TdbgpRun }
   
     TdbgpRun = class(TdbgpAction)
     public
  
positive.code:   end;
  
    // Breakpoints
  
    TdbgpSetBreakpoint = class(TdbgpAction)
    protected
  
negative.code:     procedure DoExecute(Respond: TDebugCommandRespond); override;
    end;
  
    { TdbgpSetBreakpoints }
  
    TdbgpSetBreakpoints = class(TdbgpSetBreakpoint)
    protected
    public
  