1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.B_BerechnenClick(Sender: TObject);
var zahl: integer;                  //Variablen setzten
    a,b,i :real;                    //Variablen setzten
begin                               //Variablen definieren
  zahl := strtoint(E_a.text);       //Variable "zahl" wird aus dem E_a-Textfeld entnommen
  a    := zahl;                     //Variable "a" wird gleich "zahl" gesetzt
  b    := strtofloat(E_b.text);     //Variable "b" wird aus dem E_b-Textfeld entnommen
  i    := 0;                        //Variable "i" wird gleich "0" gesetzt
repeat                              //Anfang der Repeat-Schleife
  a    := (a+b)/2;                  //???Fehler hier???
  b    := zahl/a;                   //???Fehler hier???
  i    := i+1;                      //Erhöhung der Variablen um "1"
  M_Ausgabefeld.lines.add(floattostr(a)); //Ausgabe der Ergebnis-Schritte im Memofeld
  until i=10;                       //Ende der Repeat-Schleife nach "10" Wiederholungen
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.B_BerechnenClick(Sender: TObject);  
var 
  zahl: Integer;                            // Variablen deklarieren 
  a, a2, b: Double;                   
begin                                
  zahl := StrToInt(E_a.Text);               // Variable "zahl" wird aus dem E_a-Textfeld entnommen  
  a := zahl;                                // Variable "a" wird gleich "zahl" gesetzt  
  b := StrToFloat(E_b.Text);                // Variable "b" wird aus dem E_b-Textfeld entnommen  
  repeat                     
    a2 := a;                                // Das alte "a" wird in "a2" gesichert
    b := zahl / a;                         
    a := (a + b) / 2;                          
    M_Ausgabefeld.Lines.Add(FloatToStr(a)); // Ausgabe der Ergebnis im Memofeld  
  until a = a2;                             // Wenn sich der Wert nicht mehr geändert hat, Schleife verlassen 
end;