مشکل در پیدا کردن مرکز دایره

[geeking]

سلام به اساتید
می‌خوام یک برنامه بنویسم که سه نقطه بصورت نقاط (x,y) دریافت کند. اگر این سه نقطه روی شعاع یک دایره هم مرکز بود آنگاه به کاربر اعلام کند که ... .
توی نرم افزار طراحی اتوکد یک دایره رسم کردم سپس دایره را به نقطه تبدیل کردم و در داخل Memo بعنوان ورودی کاربر قرار دادم.
برنامه ای که نوشتم خط به خط تا سه نقطه پشت سر هم (بعنوان ورودی کاربر ) از داخل Memo میخونه و جلوی خط چاپ میکنه.

خروجی باید به این صورت نشان دهد که یک دایره با مرکز (10,10) و با شعاع 15

ولی خروجی شعاع دایره و مرکز آنرا را درست پیدا نمیکند و با تلرانس مختلف تا 0.1 بدست آورده است.
نرم افزار توی ضرب و تقسیم اعداد اعشاری و round کردن آن به درستی محاسبات رو انجام نمیدهد.:ناراحت:
باید چطور این مشکل را حل کنم؟
لازم به توضیح که این اعداد در اکسل به درستی محاسبه میشود
ممنون میشم کمکم کنید
اینم سورس برنامه دلفی و فایل اکسل به همراه تصویر از محاسبات آن

[دلفــي]

سلام به اساتید
می‌خوام یک برنامه بنویسم که سه نقطه بصورت نقاط (x,y) دریافت کند. اگر این سه نقطه روی شعاع یک دایره هم مرکز بود آنگاه به کاربر اعلام کند که ... .
توی نرم افزار طراحی اتوکد یک دایره رسم کردم سپس دایره را به نقطه تبدیل کردم و در داخل Memo بعنوان ورودی کاربر قرار دادم.
برنامه ای که نوشتم خط به خط تا سه نقطه پشت سر هم (بعنوان ورودی کاربر ) از داخل Memo میخونه و جلوی خط چاپ میکنه.

خروجی باید به این صورت نشان دهد که یک دایره با مرکز (10,10) و با شعاع 15

ولی خروجی شعاع دایره و مرکز آنرا را درست پیدا نمیکند و با تلرانس مختلف تا 0.1 بدست آورده است.
نرم افزار توی ضرب و تقسیم اعداد اعشاری و round کردن آن به درستی محاسبات رو انجام نمیدهد.:ناراحت:
باید چطور این مشکل را حل کنم؟
لازم به توضیح که این اعداد در اکسل به درستی محاسبه میشود
ممنون میشم کمکم کنید
اینم سورس برنامه دلفی و فایل اکسل به همراه تصویر از محاسبات آن

خط ماقبل آخر رو به صورت زیر تغییر بده:

R := floattostr (Round(formatFloatt(sqrt(Power((fx1 - centerX), 2) + Power((fy1 - centerY), 2)))));