Неправильно считает - PascalABC.NET

Формулировка задачи:

Почему-то первые 9 условий считает неправильно... (для сравнения http://osa-spb.ru/kalkulyator-raschj...-sredstva.html)

var Iku, Tku, dL, dT, Lku:real;
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
 
begin
Tku:=DTP2.Value.Year-DTP1.Value.Year;
 
if radiobutton1.checked=true then begin dT:=0.057; dL:=0.0030;end;
if radiobutton2.checked=true then begin dT:=0.057; dL:=0.0029;end;
if radiobutton3.checked=true then begin dT:=0.042; dL:=0.0023;end;
if radiobutton4.checked=true then begin dT:=0.045; dL:=0.0024;end;
if radiobutton5.checked=true then begin dT:=0.052; dL:=0.0026;end;
if radiobutton6.checked=true then begin dT:=0.049; dL:=0.0025;end;
if radiobutton7.checked=true then begin dT:=0.077; dL:=0.0023;end;
if radiobutton8.checked=true then begin dT:=0.113; dL:=0.0008;end;
if radiobutton9.checked=true then begin dT:=0.098; dL:=0.0008;end;
 
if radiobutton10.checked=true then begin dT:=0.09; dL:=0;end;
if radiobutton11.checked=true then begin dT:=0.06; dL:=0;end;
if radiobutton12.checked=true then begin dT:=0.07; dL:=0;end;
if radiobutton13.checked=true then begin dT:=0.09; dL:=0;end;
if radiobutton14.checked=true then begin dT:=0.15; dL:=0;end;
if radiobutton15.checked=true then begin dT:=0.04; dL:=0;end;
 
label3.visible:=True;
Lku:=strtofloat(textbox1.text);
Iku:=100*(1-exp(-(dT*Tku+dL*Lku)));
label3.text:='Результат: ' +Format('{0:0.00}', Iku) + '%';
//if Iku>50 then label3.Text:='Результат: 50.00%';
end;
end.

Решение задачи: «Неправильно считает»

Листинг программы

Iku:=100*(1-exp(-(dT*Tku+dL*(Lku/1000))));

Объяснение кода листинга программы

Список действий в коде:

Открыть скобки для обозначения начала блока кода.
Написать строку кода: Iku:=100*(1-exp(-(dT*Tku+dL*(Lku/1000))));
Закрыть скобки для обозначения конца блока кода. Пояснение к коду:
Iku - это переменная, которая используется в коде.
100 - это значение, которое умножается на Iku.
(1-exp(-(dT*Tku+dL*(Lku/1000))) - это выражение, которое вычисляется внутри скобок.
dT - это значение, которое используется в выражении.
Tku - это значение, которое используется в выражении.
dL - это значение, которое используется в выражении.
Lku - это значение, которое используется в выражении.
(Lku/1000) - это выражение, которое вычисляется внутри скобок.
1000 - это значение, которое используется в выражении.
exp(-(dT*Tku+dL*(Lku/1000))) - это функция, которая вычисляется в выражении.
(dT*Tku+dL*(Lku/1000)) - это выражение, которое вычисляется внутри скобок.
dT - это значение, которое используется в выражении.
Tku - это значение, которое используется в выражении.
dL - это значение, которое используется в выражении.
Lku - это значение, которое используется в выражении.
1000 - это значение, которое используется в выражении.
Iku - это переменная, которая используется в выражении.
100 - это значение, которое умножается на Iku.
(1-exp(-(dT*Tku+dL*(Lku/1000))) - это выражение, которое вычисляется внутри скобок.
Закрыть скобки для обозначения конца блока кода.