Перевод байт в мегабиты

function BytesToMegabites(const i64Size: Int64): string;
const
  i64GB = 1000 * 1000 * 1000;
  i64MB = 1000 * 1000;
  i64KB = 1000;
  var
  bites:int64;
begin
   bites :=i64Size div 8;
  if bites div i64GB > 0 then
    Result := Format('%.2f Гбит', [i64Size / i64GB])
  else if bites div i64MB > 0 then
    Result := Format('%.2f Мбит', [i64Size / i64MB])
  else if bites div i64KB > 0 then
    Result := Format('%.2f Кбит', [i64Size / i64KB])
  else
    Result := IntToStr(bites) + ' Бит';
end;

  bites :=i64Size div 8;

function BytesToStr(const i64Size: Int64): string;
const
 i64GB = 1024 * 1024 * 1024;
 i64MB = 1024 * 1024;
 i64KB = 1024;

FileSize(myFile)

 function BytesToMiB(b:int64):extended;
 var
 t:Extended;
 begin
 t :=b * 8;
 result := t / 1024 / 1024;
end;