Listboxtaki sayıları toplatma

[krmej]

Listbox'a eklenen sayıları toplatıp sonucu label'e yazdırmak istiyorum.Bunu nasıl yapabilirim arkadaşlar,acil yardımlarınızı bekliyorum.

[qamyoncu]

Kod: Tümünü seç

var
i:integer;
begin
label1.caption:='0';
for i:=0 to (listbox1.items.count-1) do
    label1.caption:=inttostr(strtoint(label1.caption)+strtoint(listbox1.items.strings[i]));
end;

bu kodlarla hallolması lazım.. delphi kurulu olmadığı için kontrol edemiyorum.. denersen sevinirim..
saygılar..