anchor.diff:    begin
       GetKeyboardLayoutName(buf);
   
  +    try
  +
  +      FDebugCore := TDebugCore.Create(FFileName, True);
  +      frmDebugStatus.SetDebugCore(FDebugCore);
  +
  +    except
  +      on E:Exception do
  +      begin
  +        CleanupCoreState;
  +        Winapi.Windows.SetFocus(0);
  +        HideDebugForm;
  +        ShowMessage(E.Message);
  +        Exit;
  +      end;
  +    end;
  +
       debugkeyboard := TDebugKeyboard.Create(FFileName);
       frmDebugStatus.RegTest.RegTestSetup(buf, FFileName, False);   // I3655
       frmDebugStatus.SetDebugKeyboard(debugkeyboard);
  
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: 
      if FOldUIStatus = duiTest then
      begin
        SetupDebug;
      end;
  
  