my_var := strtofloat(ListView1.Items[i].Caption)+my_var;
for i:= 0 to ListView1.Items.Count do my_var := strtofloat(ListView.Items[i].Caption)+my_var;