Pascal/Turbo Pascal - Tamaño de archivo de solo lectura!

Estoy trabajando con Turbo Pascal y deseo obtener el tamaño de un archivo de un CD-ROM mediante el comando filesize, al intentarlo se genera un error. Como puedo Hacerlo?

Ten cuidado con FileSize ya que este te devuelve la cantidad de registros que no necesariamente es el tamaño en Bytes del archivo. Sería bueno que indicaras el número de error que te está devolviendo.
Para saber el tamaño en Bytes de un archivo usando FileSize debes hacer algo como esto:
var
F: File of Byte;
Tam: LongInt;
begin
Assign(F,'Archivo.ext');
reset(F);
Tam:=FileSize(F);
Close(F);
end.
Sin embargo puedes obtener el tamaño reportado por DOS si usas los procedimientos FindFirst y FindNext. Lee la ayuda.

El error que se genera es :' runtime error 005 at 0000:003D ' .(es solo al acceder a archivos de solo lectura. El codigo que me sugeriste que use tambien lo genera. Con respecto a los comandos Findfirst y Findnext: Como puedo utilizarlos para obtener el tamaño de un archivo?
Muchas Gracias

El error al que haces referencia es de "permiso denegado" y creo que sé por qué es. Cuando usas Reset el modo de apertura por omisión es de lectura/escritura, esto está determinado por una variable predefinida llamada FileMode, el valor por omisión es 2 (lectura/escritura) y de allí el error de permiso denegado, debes establecer el valor de la variable FileMode a 0 (cero) solo lectura, un valor 1 a FileMode significa solo escritura. Mi ejemplo corregido:
var
F: File of Byte;
Tam: LongInt;
begin
FileMode:=0;
Assign(F,'Archivo.ext');
reset(F);
Tam:=FileSize(F);
Close(F);
end.
Debes tener en cuenta además que la variable FileMode afecta a todas las operaciones sobre archivos a partir de su cambio de valor, por lo que si luego de hacer esto necesitas escribir algo en algún otro archivo tienes que regresar su valor a 2 antes de usar ese archivo.

Diego te agradesco mucho tu colaboracion, tu consejo me sirvio mucho. No es fue la primera ni la ultima. Gracias.

Daniel