举例:
var d: Real; begin d := Sqr(6); ShowMessage(FloatToStr(d)); {36} end;System 单元下的公用函数目录
var d: Real; begin d := Sqrt(81); ShowMessage(FloatToStr(d)); {9} end;