Delphi - OBTENIENDO LA LETRA DE LA UNIDAD DE CD-ROM

Hola. Me gustaria obtener la letra de la unidad de cdrom, yo uso el Delphi 3.0. A mi me dejaron una funcion pero no me funciona, me da error al compilar, en el longword. La funcion es esta:
function GetFirstCdRomDrive: string;
var
r: LongWord;
Unidades: array[0..128] of char;
pUnidad: pchar;
begin
Result := '';
r := GetLogicalDriveStrings(sizeof(Unidades), Unidades);
if r = 0 then exit;
if r > sizeof(Unidades) then
raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
pUnidad := Unidades; // Apunta a la primera unidad
while pUnidad^ <> #0 do begin
if GetDriveType(pUnidad) = DRIVE_CDROM then begin
Result := pUnidad;
exit;
end;
inc(pUnidad, 4); // Apunta a la siguiente unidad
end;
end;

Tambien me gustaria saber como tendrian que declarar la función. Muchas gracias por todo,

Esa función está tomada del Boletín Pascal #14. Casi todo lo que hay allí es para Delphi 5 (y para Windows 95/98/Me), pero con algunos cambios lo puedes hacer funcionar en Delphi 3.

LongWord es un entero sin signo de 32 bits. Tal vez en Delphi 3 tengas un equivalente, como por ejemplo Cardinal, DWORD, o algo así. Si no, justo para el caso del ejemplo funcionará con integer.

Ernesto