Falsche Ausgabe von Floatwerten

[Wolfgang Mix]

Moin,

teste gerade die Taylorreihe von Pi.
nach Term 28 (step) gibt es keine neuen Werte.
Was mache ich falsch?

[Edit] Ausgabe formatieren ? [/Edit]
Gruß

Wolfgang

Delphi-Quellcode:

function my_pi(steps:integer):double;
Var i:integer; s,ds:double;
Begin
   s:=1;
   for i:=1 to steps do
   begin
      ds:=power(-1,i)/((2*i+1)* power(3,i));
      s:=s+ds;
   end;
   result:=6/sqrt(3)*s;
End;

procedure TForm1.Button1Click(Sender: TObject);
var steps:integer;
begin
  steps:=StrToInt(SpinEdit1.Text);
  Edit1.Text:=FloatToStr(my_pi(steps));
end;