ListBox Zahlen addieren und dann durch Count teilen

[killerkarl]

Delphi-Quellcode:

var i:Integer;
var av:Real;
begin
av:=0;
for i:=0 to Listbox1.items.count-1 do
av:=av+StrToFloat(Listbox1.Items.Strings[i]);
av:=av/listbox1.Items.count;
showmessage(FloatToStr(av));
end;

Das sollte klappen oder nicht?