Obliczanie % wolnego miejsca

Mam kod który powinien obliczyć ile jest % wolnego miejsca na aktualnym dysku, jednak nie dziala on prawidłowo bo pokazuje dosc kosmiczne sumy, np. przy wolnych 2236284kb pokazuje -1972404%.

Gauge1.MinValue := 1;
Gauge1.MaxValue := DiskSize(0) div 1024;
Gauge1.Progress := (DiskSize(0) div 1024) - (DiskFree(0) div 1024);
AmtFree := DiskFree(0);
S := (IntToStr(100 - gauge1.Progress)) + ' % wolnego miejsca na bieżącym dysku jest wolne ('+ (inttostr(AmtFree div 1024)) + ' KB)';
Label1.Caption := S;

Za pomoc z góry dziękuje.

o ile się nie mylę to powinno być tak :

caption := floattostr(DiskFree(0) / DiskSize(0) * 100) + ' % wolnego miejsca';

Dziękuje bardzo, zadziałało ...