procedure TForm1.Button22Click(Sender: TObject);
var
a,b: extended;
begin
a:=StrToFloat(edit1.text);
b:=sqrt(a);
label1.caption:=FloatToStr(b);
end;
procedura działa w przypadku liczb całkowitych, jednak gdy próbuje spierwiastkować liczbę zmiennoprzecinkową aplikacja się zamyka.
w przypadku liczb całkowitych pierwiastek z 2 wyświetlany jest poprawnie jako 1,41