Quersumme einer Zahl in einer Edit

[Äfan]

Delphi-Quellcode:

procedure TForm1.SqrtClick(Sender: TObject);
begin
  Anzeige.text := floattostr(sqrt(strtofloat(Anzeige.text)));
end;