[ilang]

Вот так сходу в голову пришел один вариант:

Кидаешь TMediaPlayer, делаешь его невидимым. Устанавливаешь свойство DeviceType := dtCDAudio.
Ну а для проверки пишешь такой код:

Код:

procedure CheckCD;
begin

  With MediaPlayer1 do
  begin
    Open;  //открываем устройство
    Play;  //пытаемся воспроизвести

    if (Mode = mpPlaying) then       //проверяем состояние
      ShowMessage ('Музыкальный компакт диск')
    else
    if (Mode = mpStopped) then
      ShowMessage ('Диск с данными')
    else
      ShowMessage('Отсутствует компакт-диск');
    Close
  end

end;

Смысл такой - если воспроизводится, то значит Audio CD. Топорно конечно, но по идее должно работать