Integral definida en delphi

[guiller130292]

Mi duda con el código es que realmente no sé dónde está el error. Elaboré una función que según mi criterio debería calcular la integral definida de la función antes especificada en un intervalo introducido por el usuario. El programa compila, pero al pulsar el boton que debe calcular la integral, se queda pegado y no consigo el error en el código y me parece que la lógica está correcta, si por favor alguien puede revisarlo lo agradezco mucho. Gracias por sus respuestas.