Wurzel ziehen mit kleinem Programm in Delphi

[Klaus01]

Guten Morgen,

wenn Du Dir Deinen Code einmal anschaust wenn alles richtig eingerückt ist,
dann sollte es Dir selber auffallen.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var wurzel: real;
    ergebnis:real;
begin
  wurzel := StrToInt(Edit1.Text);
  ergebnis := sqrt(wurzel)
end;
Label3.Caption := FloatToStr(ergebnis);
end;

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var wurzel: real;
    ergebnis:real;
begin
  wurzel := StrToInt(Edit1.Text);
  ergebnis := sqrt(wurzel)
  Label3.Caption := FloatToStr(ergebnis);
end;

Grüße
Klaus