المحجوب كتب :السلام عليكم جمع اعداد صحيحة
var S,i:Integer;begin s:=0;for i:=0 to listbox1.Count-1 dos:=S+StrToInt(ListBox1.Items.Strings[i]);Edit1.Text:=IntToStr(s);end;