Анализ диска

[Дако]

Help please(( как с помощью Chart показать емкость диска? у меня с listbox. не знаю как объединить с Chart. точнее вместо Listbox должен быть Chart.

begin
for drnum:=ord('A')to ord ('Z') do
begin
drtotalsize:=DiskSize(drnum -ord('A')+1);
drinfor:='Disk '+chr(drnum)+ ':';
if drtotalsize<>-1 then
begin
drinfor:=drinfor+'total - '+
floattostr(round(drtotalsize/1073741824))+
'Gb; free - '+ floattostr(round(DiskFree
(drnum-ord('A')+1)/1073741824))+'Gb';
listbox1.Items.Add(drinfor);
end;
drinfor:='';
end;
end;

Пожалуйста помогите кто может(((((

[Дако]

begin
for drnum:=ord('A')to ord ('Z') do
begin
drtotalsize:=DiskSize(drnum -ord('A')+1);
drinfor:='Disk '+chr(drnum)+ ':';
if drtotalsize<>-1 then
begin
drinfor:=drinfor+'total - '+
floattostr(round(drtotalsize/1073741824))+
'Gb; free - '+ floattostr(round(DiskFree
(drnum-ord('A')+1)/1073741824))+'Gb';
listbox1.Items.Add(drinfor);
end;
drinfor:='';
end;
end;