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