TCdRom = record
HaId : Byte;
Target : Byte;
Lun : Byte;
Vendor : ShortString;
ProductId : ShortString;
Revision : ShortString;
VendorSpec: ShortString;
end;

TCdRoms = record
CdRomCount: Byte;
CdRom : array[0..25] of TCdRom;
end;