Bytes in GB formatieren?

[mlspider]

Delphi-Quellcode:

IntToStr(free_size div 1024 div 1024 div 1024) + #13 + 'total size=' +
IntToStr(total_size div 1024 div 1024 div 1024))

gibt mir zu ungenaue Angabe. Wie soll ich RoundTo anwenden?