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:               frmDebugStatus.Elements.UpdateStores(nil);
                frmDebugStatus.Key.ShowKey(nil);
              end;
              ForceKeyboard := False;
              StatusText := 'Ready for input';
              memo.ReadOnly := True;
            end;
  
negative.code:           //SelectSystemLayout(False);
            EnableUI;
            FUIDisabled := False;   // I4033
            StatusText := 'Paused';
            memo.ReadOnly := True;
          end;
  