Pojemność dysku

Hej
Mam problem. [glowa] Jak zrobić aby w gauge(chyba tak się pisze)
było pokazene ile mam wolnego miejsca na dysku C:/ a w drugim gauge było pokazene ile zajętego miejsca na dysku ??
Prosiłbym o kod.
Dzięki za odpowiedzi [hurra] !!

FAQ
http://4programmers.net/view_faq.php?id=19

ew. http://www.torry.net

funkcje : diskFree(http://vcl.4programmers.net/viewapi.php?id=118) i diskSize (http://vcl.4programmers.net/viewapi.php?id=119) ... i + F1 oczywiście :).

begin
Gauge1.MinValue := 1;
Gauge2.MinValue := 1;
Gauge1.MaxValue := DiskSize(0) div 1024;
Gauge2.MaxValue := DiskSize(0) div 1024;
Gauge1.Progress := DiskFree(0) div 1024;
Gauge2.Progress := (DiskSize(0) div 1024) - (DiskFree(0) div 1024);
end;