ListBox Zahlen addieren und dann durch Count teilen

[Toenn]

hmm was is daran falsch:

Delphi-Quellcode:

var i, arsch: Integer;
begin
for i := 1 to ListBox1.ItemIndex do
 arsch := arsch+StrToInt(ListBox1.Items[ListBox1.ItemIndex]);

???

Danke,
toenn