[ecfisa]

Hola.

Proba de este modo:

Código Delphi [-]
function FileLongSize(const FileName: string): Int64;
var
  FindData: TWin32FindData;
begin
  Windows.FindClose(FindFirstFile(PChar(FileName), FindData));
  Result := FindData.nFileSizeHigh shl 32 or FindData.nFileSizeLow;
end;

Saludos.

Edito: Disculpa, no había visto tu mensaje Casimiro , bueno otra opción...