anchor.diff:      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)
  
positive.code: 
  procedure TdbgpDebug.StepOut;
  begin
    FServer.AddAction(TdbgpStepOut.Create);
    FServer.AddAction(TdbgpGetWatches.Create);
    FServer.AddAction(TdbgpGetCurrent.Create);
  
negative.code: 
  procedure TdbgpDebug.StepInto;
  begin
    FServer.AddAction(TdbgpSetBreakpoints.Create);
    FServer.AddAction(TdbgpStepInto.Create);
    FServer.AddAction(TdbgpGetWatches.Create);
    FServer.AddAction(TdbgpGetCurrent.Create);
  