Radice Quadrata (Delphi 7)

[camaleonteplus]

Ho risolto in questo modo:

procedure TForm8.Button3Click(Sender: TObject);
var
X,Y,Z:INTEGER;
S:STRING[10];
nDouble: Double;
begin
  VAL(Edit12.text,X,Z);
  nDouble := StrToFloatDef(Edit11.text, 0);
  nDouble := Sqrt(nDouble * X);
  STR(X,S);
  Label13.Caption := FloatToStr(Round(nDouble));
end;