Błąd podczas pierwiastkowania, nie można pierwiastkować liczb zmiennoprzecinkowych

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

To dziwne. U mnie wszystko ok. Na D7.

Sprawdź, czy nie wpisujesz kropki zamiast przecinka :p

DecimalSeparator + google/help.