Obtendo o tamanho de um arquivo em bytes, KB, MB ou GB

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// permite formatar o tamanho de um arquivo em bytes em
// Kb, Mb ou Gb
function TamanhoArquivoFormatado(const bytes: Longint): string;
const
  b = 1; // byte
  kb = 1024 * b; // kilobyte
  mb = 1024 * kb; // megabyte
  gb = 1024 * mb; // gigabyte
begin
  if bytes > gb then
    Result := FormatFloat('#.## GB', bytes / gb)
  else if bytes > mb then
    Result := FormatFloat('#.## MB', bytes / mb)
  else if bytes > kb then
    Result := FormatFloat('#.## KB', bytes / kb)
  else
    Result := FormatFloat('#.## bytes', bytes);
end;

// função que permite obter o tamanho de um arquivo em bytes
function TamanhoArquivoBytes(arquivo: string): Int64;
var
  search_rec: TSearchRec;
begin
  if FindFirst(arquivo, faAnyFile, search_rec) = 0 then
    Result := Int64(search_rec.FindData.nFileSizeHigh) shl Int64(32)
      + Int64(search_rec.FindData.nFileSizeLow)
  else
    Result := -1;

  FindClose(search_rec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  arquivo: string;
begin
  // nome do arquivo que queremos obter o tamanho
  arquivo := 'C:\estudos_delphi\programa_vcl\arquivo.txt';

  // exibe o resultado
  ShowMessage('O tamanho do arquivo é: ' +
    TamanhoArquivoFormatado(TamanhoArquivoBytes(arquivo)));
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

[DCC Warning] Unit1.pas(54): W1002 Symbol 'FindData' is specific 
to a platform