[PeaceCoder]

Он Gvozd, и забивает на мертво И он прав. Это на будущее.
Немного зная делфи помогу но не гарантирую работу

function Simpson(A, B,N, Func,Arg){
var
  h,X,K,I;
  Assert(N > 0); // хз че это
  h = 0.5 * (B - A) / N;
  Result = Func(A, Arg);
  X = A + h;
  for (I = 1;I< 2 * N-1;I++) {
    K =  I % 2 ? 4 : 2;
    Result +=  K * Func(X, Arg);
    X += h;
    }
  Result += Func(B, Arg);
  return h * Result / 3;

  }