[Delphi] Pojemność

Jak wyświetlić na Labelu pojemność dysku i wolne miejsce w GB lub MB ??

[glowa] [stuk] A może by poczytać Faq'a ??

Label1.Caption := Format('Wolne miejsce: %d MB',[DiskFree(0) div (10241024)]);
Label2.Caption := Format('Pojemność dysku: %d MB', [DiskSize(0) div (10241024)]);

DiskSize(0) // bieżący dysk (w bajtach)
DiskSize(3) // dysk C

Label1.Caption:=Format('Wolne miejsce: %d MB',[DiskFree(0) [b]shr 20[/b]]);
Label2.Caption:=Format('Pojemność dysku: %d MB', [DiskSize(0) [b]shr 20[/b]]);