Saber el UPC de un CD de audio

[MON___]

Tengo dos unidades de CD ROM (D - E), que muestro en un comboBox. Introduzco un CD Audio en una de ellas (supongamos que lo he introducido en E) y la selecciono en el Combo para (pulsando un botón) obtener el UPC ("UNIVERSAL PRUDUCT CODE") del disco. Para ello he creado la siguiente rutina

Código Delphi [-]
function obtenerUPC : string;
var
   buffer : array[0...MAX_PATH] of char;
begin
   mciSendString('open cdaudio', nil, 0, 0);
   mciSendString('info cdaudio upc', buffer, sizeof(buffer), 0);
   result := StrPas(buffer);
end;

La duda que tengo: ¿qué me falta en esa función para indicar que me debe dar el UPC del disco introducido en E y no en D?