Wurzel ziehen mit kleinem Programm in Delphi

[mirage228]

Was ist denn die Fehlermeldung?

Aber dein Code ist syntaktisch schon falsch, besser ists so:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject); 
var 
  wurzel: real; 
  ergebnis:real; 
begin 
  wurzel := StrToFloat(Edit1.Text);  // StrToFloat!
  ergebnis := sqrt(wurzel); // Semikolon fehlt
  // hier war ein End zu viel
  Label3.Caption := FloatToStr(ergebnis); 
end;