i:=o; Repeat ListBox3.Items[i]:=IntToStr(StrToInt(ListBox1.Items[i])+StrToInt(ListBox2.Items[i])); Inc(i); Until i=ListBox1.Count or i=ListBox2.Count;