Error en Sizeof ayuda. 460
 

var dato: textfile;
res: integer;
procedure......
begin
assignfile(dato, 'c:\pro.txt');
reset(dato);
res:= SizeOf(dato);
label1.caption:= inttostr(res);
end;

Pues lea lo que lea en assign, el tamaño que la funcion (SizeOf)me devuelve siempre es 460.
Alguien me puede hechar una mano?
Gracias de antemano.

Si lo que quieres es saber el tamaño de un fichero, utiliza la función FileSize

lo he mirado y no sirve pa text.

lo que quiero hacer es meterle un ProgressBar1.max = al tamaño del textFile y luego utilizando el Length por linea que lea ir incrementado el ProgressBar1.Position.
Algo tan facil como debe ser y que me cueste tanto...no se, no se.
Alguna idea?.