Tamaño de archivo

[ckaki]

Utilizo este código para obtener el tamaño de un archivo en bytes

Function TMainForm.byte(archivo:string):LongInt;
Var
Fichero: File;
Tamanyo: LongInt;
Begin
AssignFile(Fichero,archivo);
Reset(Fichero,1);
Tamanyo := FileSize(Fichero);
CloseFile(Fichero);
Result := Tamanyo;
end;

perso sucede que al estar en uso me da un error: Acceso denegado.

alguna idea

desde ya mil gracias