Laufwerke in Popupmenü auflisten

[CoRe.eXtreem]

Mit diesem Code versuche ich zu überprüfen ob das laufwerk geöffnet ist,
aber irgendwie bekomme ich nur den Status "Open"??

Delphi-Quellcode:

uses 
  mmsystem; 
  
procedure TForm1.Button1Click(Sender: TObject); 
var 
  s: array[0..64] of Char; 
  error: Cardinal; 
  Text: array[0..255] of Char; 
begin 
  error := mciSendstring('open cdaudio alias geraet', nil, 0, Handle); 
  if error <> 0 then 
  begin 
    mciGetErrorstring(error, @Text, 255); 
    ShowMessage(Text); 
    mciSendstring('close geraet', nil, 0, Handle); 
    Exit; 
  end; 

  error := mciSendstring('status geraet mode', @s, SizeOf(s), Handle); 
  if error <> 0 then 
  begin 
    mciGetErrorstring(error, @Text, 255); 
    ShowMessage(Text); 
    mciSendstring('close geraet', nil, 0, Handle); 
    Exit; 
  end; 

  mciSendstring('close geraet', nil, 0, Handle); 
  ShowMessage('Message: ' + s); 
end;

Was mache ich falsch??