Error en Sizeof ayuda. 460

[esquerda21]

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.

[__cadetill]

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

[esquerda21]

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?.