anchor.diff:            DisableUI;
             frmDebugStatus.Elements.UpdateStores(nil);
             frmDebugStatus.Key.ShowKey(nil);
  -          ForceKeyboard := True;
             StatusText := 'Focused for input';
             memo.ReadOnly := False;
             //SelectSystemLayout(True);
  
positive.code:     procedure SetUIStatus(const Value: TDebugUIStatus);
      procedure DisableUI;
      procedure EnableUI;
      procedure SetForceKeyboard(Value: Boolean); // TODO: refactor this away -- we should use only FUIStatus
      function GetStatusText: string;
      procedure SetStatusText(Value: string);
      procedure UpdateDebugStatusForm;   // I4809
  
negative.code: 
      FDebugVisible: Boolean;
      FBreakpoints: TDebugBreakpoints;
      FRunning, FFoundBreakpoint: Boolean;
      FFileName: string;
      FExecutionPointLine: Integer;
      debugkeyboard: TDebugKeyboard;
  