anchor.diff:      procedure Created; override;
       destructor Destroy; override;
       function GetCommand: string; override;
  -    procedure Execute(Respond: TdbgpRespond); override;
  +    procedure Execute(Respond: TDebugCommandRespond); override;
     end;
   
     TdbgpStepOver = class(TdbgpAction)
     public
       function GetCommand: string; override;
  -    procedure Execute(Respond: TdbgpRespond); override;
  +    procedure Execute(Respond: TDebugCommandRespond); override;
     end;
   
     TdbgpStepInto = class(TdbgpAction)
     public
       function GetCommand: string; override;
  -    procedure Execute(Respond: TdbgpRespond); override;
  +    procedure Execute(Respond: TDebugCommandRespond); override;
     end;
   
     TdbgpStepOut = class(TdbgpAction)
     public
       function GetCommand: string; override;
  -    procedure Execute(Respond: TdbgpRespond); override;
  +    procedure Execute(Respond: TDebugCommandRespond); override;
     end;
   
     TdbgpRun = class(TdbgpAction)
     public
       function GetCommand: string; override;
  -    procedure Execute(Respond: TdbgpRespond); override;
  +    procedure Execute(Respond: TDebugCommandRespond); override;
     end;
   
     { TdbgpDetach }
  
positive.code:   protected
      FName: string;
      FValue: string;
      procedure Execute(Respond: TdbgpRespond); override;
    public
      constructor CreateBy(vName, vValue: string);
      function GetCommand: string; override;
  
negative.code:   Result := 'step_out';
  end;
  
  procedure TdbgpStepOut.Execute(Respond: TDebugCommandRespond);
  begin
  end;
  
  