Как узнать букву CD-ROM?

Code:

function GetFirstCDROM: string;

{возвращает букву 1-го привода CD-ROM или пустую строку}

var

w: dword;

Root: string;

i: integer;

begin

w := GetLogicalDrives;

Root := '#:\';

for i := 0 to 25 do

begin

   Root[1] := Char(Ord('A') + i);

   if (W and (1 shl i)) > 0 then

     if GetDriveType(Pchar(Root)) = DRIVE_CDROM then

     begin

       Result := Root[1];

       exit;

     end;

end;

Result := '';

end;