Память дисков Delphi

[malicious_devil]

Label2.Caption := FloatToStr(StrToFloat(GetDiskInfo(D riveComboBox1.Drive,DI_DiskSize)) / (1024*1024*1024))+' Гб';
Label7.Caption := FloatToStr(StrToFloat(GetDiskInfo(D riveComboBox1.Drive,DI_DiskFreeSize )) / (1024*1024*1024))+' Гб';

Как сделать, чтобы результат был округленный или хотя бы сократить,что бы показывало не 7,53213119....... ,а 7,53?

[eoln]

http://www.delphibasics.ru/FloatToStrF.php