procedure THIDriveBox.SetDriveName;
*
    if Err then
      if DriveReady(Control.Items[DrvIdx][3]) then
        Control.CurIndex := DrvIdx
      else
      begin // ??? ???????? ???????? ??????
        _Debug; /здесь рантайм выпадает вместо дебага.
        Drv := #99 + ':';
        Control.CurIndex := Control.SearchFor(Drv[1], 0, True);
      end