چطور در لیست باکس دو تا گزینه رو جمع بزنم؟

[hex161]

با سلام.
در لیست باکس می خواهم از گزینه اول تا آخر رو که همه عدد هستند رو باهم جمع بزنم. چطور اینکارو کنم؟
اگه یه مثال هم بزارید خیلی ممنون میشم .
با تشکر

[Hamid_PaK]

یه چیزی شبیه این ...


var
a,
b: Integer;
begin
b := 0;
for a:= 1 to ListBox1.Items.Count do begin
b := b + StrToIntDef(ListBox1.Items[a-1], 0);
end;
end;


یا حق !!!