Witam kolegów. Mam następujący problem próbuję przenieść formułę z excela do programu. Wynik działania aplikacji nie odzwierciedla wyników excela. Gdzie może leżeć błąd ?
Const
A = -1,63E+00;
B = -3,89E-02;
C = 4,05E-03;
D = -8,19E-04;
E = 4,15E-05;
F = -9,51E-07;
G = 1,13E-08;
H = -6,86E-11;
I = 1,68E-13;
Var
M, T, KT : Real;
begin
M := StrToFloat(Edit1.Text);
T := StrToFloat(Edit2.Text);
KT := M+0.001*(A*Power(M*100,0)+ B*Power(M*100,1)+C*Power(M*100,2)+D*Power(M*100,3)+E*Power(M*100,4)+F*Power(M*100,5)+G*Power(M*100,6)+H*Power(M*100,7)+I*Power(M*100,8)) + (T-20) ;
Edit3.Text := FloatToStr(KT);
end;
W uses dodane Math;
Załączam excela