Delphi-PRAXiS - Delphi IntervallSchachtelung

moin

ich hab (versucht) ein programm zu schreiben welches eine wurzel mit hilfe einer intervallschachtelung berechnet...

aber irgendwie klappt das nicht so richtig...
hat einer von euch da Quelltexte wies geht?

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var Zahl, i:Integer;

    RootMin, RootMax, RealRoot, Genauigkeit, AktGenau, Stelle:Extended;

begin

  ListBox1.Clear;

  Zahl:=JvIntegerEdit1.Value;

  RealRoot:=sqrt(Zahl);

  for i:=0 to Zahl do if sqr(i+1)>zahl then break;

  RootMin:=i;

  ListBox1.Items.Add('Minimum: '+FormatFloat('000.0000000000',RootMin));

  for i:=zahl downto 0 do if sqr(i-1)<zahl then break;

  RootMax:=i;

  ListBox1.Items.Add('Maximum: '+FormatFloat('000.0000000000',RootMax));

  AktGenau:=1;

  Stelle:=1;

  Genauigkeit:=0.0001;

  ListBox1.Items.Add(FormatFloat('000.0000000000',RootMin / Stelle)+' <= '+FormatFloat('000.0000000000',RealRoot)+' <= '+FormatFloat('000.0000000000',RootMax / Stelle));

  while (AktGenau>Genauigkeit) and (RootMax-RootMin>Genauigkeit) do

    begin

    while RootMax-RootMin>AktGenau do

      begin

      if sqr((RootMax+RootMin) / 2)>zahl

      then RootMax:=RootMax - 1

      else RootMin:=RootMin + 1;

      ListBox1.Items.Add(FormatFloat('000.0000000000',RootMin / Stelle)+' <= '+FormatFloat('000.0000000000',RealRoot)+' <= '+FormatFloat('000.0000000000',RootMax / Stelle));

      Application.ProcessMessages;

      end;

    if (RootMin=RealRoot) or (RootMax=RealRoot) then break;

    Stelle:=Stelle * 10;

    RootMax:=RootMax * 10;

    RootMin:=RootMin * 10;

    end;

end;