порівняння чисел розрахованих програмою і введених

[frannk]

завдання таке: є таблиця де студент вводить два значення (р1 і р2) і розраховані за відомими формулами значення у поля (х1,х2).програма маючи значення р1 і р2 сама розраховує ті ж значення.завдання полягає у тому що б порівняти значення вирахуване програмою і введене в поля (х1 х2) користувачем,НАЙГОЛОВНІШЕ те,що користувач може ввести як 1,7987 так і 1,8 і 1,799 тобто округляючи по різному ,а програма рахує ж по 16 знаків і не признає результати вірними хоча ж видно ,що це один і той же результат.Допоможіть ,будь-ласка.
пропрацьовував такий варіант
//begin

if g21h121<0 then
begin
g21h121:=-1*g21h121;
end
else
begin
if g21h121<0.15 then
begin
label1.Caption:=g;
end
else
begin
label1.Caption:=ng;
end;
end;
end;
тут g21h121 це р1-р2. ну а g і ng відповіднопросто 'вірно' і 'не вірно'
але він чомусь не працює.дякуюvlad_vlad22@mail.ru