[Pyro]

у лейбница:
; после do - цикл не выполняется
4 не там где надо
s = 0 sign = 1 и вто же время Leybnitc.Text:=FloatToStr(s) ??
у эйлера как минимум: s:= 1/sqr(n) - касяк
вобще есть отладка по шагам, брейкпоинты, рекомендую узнать что это такое