will aus 2 listboxen die werte zusammen rechen

[sigma]

Hallo hab schon wieder ein problem ich glaub ich sollte es mit dem Programmieren sein lassen bin dafür glaub ich zu dumm
ich hab ein Programm geschrieben mit 2 Listboxen nun will ich die werte aus beiden listboxen zusammen rechnen bekomme es aber nicht hin hat jemand eine idee
hier ist mal mein versuch

Delphi-Quellcode:

for intI := 0 to isbListe1.Items.Count-1 + isbListe2.Items.Count-1 do
     intMittel := intMittel + StrToInt (isbliste1.Items[intI]);
     intMittel2 := intMittel2 + StrToInt (isbliste2.Items[inti]);
     intErg:= intMittel + intMittel2;
     edtWert3.Text := FloatToStr (intMittel);