[[escafandra]]

Otra forma (recordando este hilo: C++ Obterner tamaño fichero grande...)

Código Delphi [-]
function GetFileSizeEx(hFile: THandle; var Data: int64): boolean; stdcall; external 'Kernel32.dll' name 'GetFileSizeEx';

implementation
     
     
function _GetFileSize(hFile: THandle): int64;
begin
  if not GetFileSizeEx(hFile, Result) then Result:= 0;
end;

Saludos.