[msatmb]

Подскажите пожалуйста.
Имеется код

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
 
[Languages]
Name: "Russian"; MessagesFile: "compiler:Languages\Russian.isl"
 
[CustomMessages]
Russian.NeedTmpSpaceMsg=Для работы инсталлятора недостаточно свободного места на системном диске. %nТребуется не менее %1 Мб. %nДоступно %2 Мб.
 
[_code]
function InitializeSetup(): Boolean;
var
  TmpDirFreeMB, TmpDirTotalMB, TmpDirNeedMB: Cardinal;
 
begin
  TmpDirNeedMB:= 5000000; // сколько МЬ требуется
    Result := True;
  GetSpaceOnDisk(ExpandConstant('{tmp}'), True, TmpDirFreeMB, TmpDirTotalMB);
  if TmpDirFreeMB < TmpDirNeedMB then begin MsgBox(FmtMessage(ExpandConstant('{cm:NeedTmpSpaceMsg}'), [inttostr(TmpDirNeedMB),inttostr(TmpDirFreeMB)]), mbError, MB_Ok); Result := False; exit;; end;
end;

Как сделать при помощи функции ByteOrTB от Виктора Доброва чтобы показывалось сообщение в Гб