محاسبه جذر اعداد (الگوریتم)

[اصغر (پآچ)]

سلام
برای بدست آوردن جذر اعداد یه فرمول دارم اما نمی تونم توی دلفی تعریفش کنم کسی میتونه بگه چطوری می تونم این فرمول رو پیاده سازی کنم؟

X = عددی که می خوایم جذرش رو حساب کنیم

r = 1

for i = 1 to 100

r = (r + (x/r))/2

البته می دونم که تابع SQR توی دلفی جذر اعداد رو بر می گردونه اما می خوام این فرمول رو استفاده کنم.
موفق و موید باشید