Listbox addieren?

[arcangel]

naja gut, erstmal danke für die unterstützung... is mir halt wichtig das das programm fertig wird da es benotet wird

ich probier jetzt schon ewig rum, bin auch nicht wirklich besonders gut in delphi und komm einfach nicht weiter

Delphi-Quellcode:

if Listbox1.Items.Text <> ''  then
            begin
              for y := 0 to i+1 do                                        //i = anzahl der einträge
                begin
           x := StrtoInt(Listbox1.Items[y]);   
                end;
                y := y+1;
           x2 := StrtoInt(Listbox1.Items[y]);
                z := x+x2;
                Label3.Caption := InttoStr(z);
            end;

wie gesagt meine überlegung stimmt irgendwie schon nicht und überblick hab ich auch nicht mehr wirklich viel vll will ja doch noch wer was genaueres für mich posten, danke