Hola,
La idea que subyace en el código que te mostró roman es válida para lograr lo que te propones. Pero no es que tengas que usar el código propuesto por roman tal cual para lo que quieres conseguir.
El código expuesto trata de establecer como directorio actual (Current Directory) mediante el procedimiento "ChDir" (Change Directory) el directorio: "A:\".
Es una forma de averiguar si existe un disquete en la unidad A, puesto que, en caso de no existir, no podría cambiarse el directorio a "A:\" y se elevaría una excepción (EInOutError, error de entrada-salida) que nos permitiría mostrar un mensaje informando del problema, u obrar de cualquier otro modo.
Se trataría, efectivamente, de realizar la escritura del archivo dentro de un bloque "try...except", de tal modo que, en caso de error/excepción (se retiró el disco, por ejemplo) pudieras informar sobre el asunto y, por supuesto, abortar la escritura del archivo en cuestión.
Estaría bien que echaras un vistazo a la ayuda de Delphi en busca de la forma de tratar las posibles excepciones mediante bloques "try...except".
En la página Web de
Ian Marteens puedes descargar, gratuitamente, el libro La cara oculta de Delphi 4: en el mismo se trata el tema de las excepciones y la manera de trabajar con ellas.
No estaría demás que escribieras aquí el código que empleas para escribir el archivo en cuestión, con el fin de poderte ayudar mejor, en todo caso.