una simple función, un grave problema..

[DynaRoc]

Buenas, el caso es que necesito hacer una simple función que me calcule lo siguiente :

( 35 + 2*(111 - 7,5*log10(5-1) - 95) = 59

todos los datos serán recogidos por textfield y guardados en variables DOUBLE ( ya que la función log10 no puede trabajar con enteros)

Aki os pongo el código ke he kreado, pero el problema es que el resultado que me dá no es 59, sino 76.03!!!!

Smax := StrToFloat(Edit1.text); // le meto 95
SmaxLimite := StrToFloat(Edit2.Text); // 111
n_canales := StrToFloat(Edit6.Text); // 5
S_I_tipo := 35.0;

un_canal := n_canales - 1.0; // debería dar 4, si le meto 5
rest_ci := -7.5*(Log10(un_canal));

Edit5.Text := FloatToStr(S_I_tipo + 2.0*(Smaxlimite - rest_ci - Smax)); // muestro el resultado en un textfiled.

el problema es que esto no me dá el resultado correcto ( en papel y con la calculadora)

alguien podría ayudarme ? seguro que es una tontería vamos