1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure Tlbl_StartwertNEG.BerechneClick(Sender: TObject);
Var
  Startwert1, Startwert2, Mittelwert, Funktionswert, E, Quadrat : real;
begin
  Startwert1 := StrToFloat(edt_Startwert1.text);
  Startwert2 := StrToFloat(edt_Startwert2.text);
  E               := StrToFloat(edt_E.text);
  Quadrat    := StrToFloat(edt_Wurzelaus.text);
  repeat
    Mittelwert:= (Startwert2+Startwert1)/2;
    Funktionswert:=(Mittelwert*Mittelwert);
    If Funktionswert - Quadrat > 0
    then
      Startwert2:=Mittelwert
    else
      Startwert1:=Mittelwert
  until ABS(Funktionswert -Quadrat) < E;  // Hier hätte ich gerne noch den OR Operator, der sagt dass ABS(...) auch Null sein kann
  pnl_wurzelausgabe.caption := FloatToStr(Mittelwert);
end;

end.                    

1:

until (Abs(Funktionswert - Quadrat) < E) or (Abs(Funktionswert - Quadrat) = 0);