Как узнать есть ли в заданном CD-ROM'е Audio CD?

Code:

function IsAudioCD(Drive : char) : bool;

var

       DrivePath : string;

       MaximumComponentLength : DWORD;

       FileSystemFlags : DWORD;

       VolumeName : string;

Begin

       sult := false;

       DrivePath := Drive + ':\';

       if GetDriveType(PChar(DrivePath)) <> DRIVE_CDROM then

               exit;

       SetLength(VolumeName, 64);

       GetVolumeInformation(PChar(DrivePath),PChar(VolumeName),

       Length(VolumeName),nil,MaximumComponentLength,FileSystemFlags,nil,0);

       if lStrCmp(PChar(VolumeName),'Audio CD') = 0 then

               result := true;

end;

function PlayAudioCD(Drive : char) : bool;

var

       mp : TMediaPlayer;

begin

       result := false;

       Application.ProcessMessages;

       if not IsAudioCD(Drive) then

               exit;

       mp := TMediaPlayer.Create(nil);

       mp.Visible := false;

       mp.Parent := Application.MainForm;

       mp.Shareable := true;

       mp.DeviceType := dtCDAudio;

       mp.FileName := Drive + ':';

       mp.Shareable := true;

       mp.Open;

       Application.ProcessMessages;

       mp.Play;

       Application.ProcessMessages;

       mp.Close;

       Application.ProcessMessages;

       mp.free;

       result := true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

       if not PlayAudioCD('D') then

               ShowMessage('Not an Audio CD');

end;