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