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

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

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