при вычислениях результат 0, не при любых значениях. Если реальные значение брать то 0.
timer:=GetRelativeTimeMs - timer;
res:=(3600*N)/(A*(timer*1000));
i:=FormAddString('Нажмите ДАЛЕЕ для вычисления погрешности');
btnOK:=CreateCommand('Далее', CM_OK, 1);
AddCommand(btnOK);
while(GetClickedCommand <> btnOK) do Delay(20);
S:=(res-P)/P;
ClearForm;
формулу я правильно написал, может он меня просто не понимает?