Pascal/Turbo Pascal - blockread - blockwrite

La duda es la siguiente: hice un sencillo programa para copiar archivos mediante blockread y blockwrite. El caso es que cuando el archivo es pequeño, lo copia bien, cuando el archivo es mediano (probe con uno de 31 Mb) crea el archivo destino, pero no escribe nada en el (ta vacio), y si es muy grande(500 Mb, p.ej) da un error. Como puedo solucionar esto??

He hecho un programa similar usando blockread y blockwrite pero no me ha pasado nada de lo que comentas, ¿podrías enviarme el fuente del tuyo a ver si descubro algo?.
Gracias.