Source position: cdrom.pp line 37
function ReadCDTOC(
Device: string;
var CDTOC: array of TTocEntry
):Integer;