Ok, en este caso hay que calcularlo "por partes"; Modifica el código y utiliza el siguiente:
Código Delphi
[-]
var
hdl: THandle;
FileData: TWin32FindData;
Size:int64;
begin
Size := 0;
hdl := FindFirstFile(PChar(edtFileSize1.text), FileData);
if (hdl <> INVALID_HANDLE_VALUE) then begin
Windows.FindClose(hdl);
Int64Rec(Size).Lo := FileData.nFileSizeLow;
Int64Rec(Size).Hi := FileData.nFileSizeHigh;
end;
ConvertFileSizes(Size);
Si lo pruebas ahora con un fichero de grande (en mi caso con uno de más de 7 gb) obtengo esto: