Delphi - Como obtener el contenido de un CD?

Hi, como es que puedo obtener el contenido (archivos y directorios) de un CD?

Vamos tios, alguien que sepa o me oriente, quiero obtener una lista para un memo algo como:

carpeta1\
carpeta1\carpeta1s1
carpeta1\carpeta1s1\archivo1.ext[|]tamaño
carpeta1\carpeta1s1\archivo2.ext[|]tamaño
carpeta1\carpeta1s2
carpeta2\
carpeta2\archivo1.ext[|]tamaño