[ApplicatiOn]

Получаю размер из файла по функции:

Код:

function GetFileSize(FileName: String): Integer;
var
  FS: TFileStream;
begin
  try
    FS := TFileStream.Create(Filename, fmOpenRead);
  except
    Result := -1;
  end;
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

когда файл размером 3+ гб, он отображает отрицательное число и не правильное.. как можно доработать её ?

например файл 3 662 918 кб (3,49 гб) у меня отображается как -544139589 байт

помогите пожалуйста