ListBox Zahlen addieren und dann durch Count teilen

[Toenn]

Hi,
das:

Delphi-Quellcode:

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

geht. Jedoch kommt raus: 3 stat 3,3333333333.
Wie kann ich die Nachkommastellen anzeigen?

Danke,
Toenn