Delphi-Listbox'a sayı ekleme,eklenen sayıların ortalamasını ve S.Sapma'sını bulma

[color=yellowgreen][font=tahoma]procedure TForm1.Button1Click(Sender: TObject);[/FONT][/color][color=YellowGreen]begin
listbox1.items.Add(edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
x,i:integer;
t,stdev,toplam,mean:real;
begin
toplam:=0;
for i:=0 to listbox1.count-1 do
begin
 x:=strtoint(listbox1.items[i]);
 toplam:=toplam+x;
 mean:=toplam/(listbox1.count);
 edit2.text:=floattostr(mean);
end;
t:=0;
    for i:=0 to listbox1.count-1 do
    begin
   x:=strtoint(listbox1.items[i]);
   t:=t+sqr(x-mean);
   end;
   stdev:=sqrt(t/(listbox1.Count-1));
    edit3.text:=floattostr(stdev);
end;
[/color][color=yellowgreen][font=tahoma]end.[/FONT][/color]