Deberías haber contestado en el hilo que iniciaste, para que la respuesta quedase allí.... pero en fin.
Simplemente mete un CD y lo formateas con el InCD, a partir de ahora lo usas como un simple disquete:
Código Delphi
[-]
application.messagebox('Por favor introduzca el dichoso CD para las copias de seguridad', 'Informacion',mb_iconinformation);
if CopyFile(pchar('c:\miarchivo.txt'), pchar('F:\miarchivo.txt') then
Showmessage('copiadoooooo')
else
showessage('mira que no introducir el CD a tiempo....... repite el proceso');
Lo unico sería verificar que la F: es la unidad grabadora de Cds, Hay rutinas que te dicen que tipo de unidad es cada una... busca por el foro si lo quieres hacer automaticamente.
Saludos