Как в лазарусе /делфи сделать в калькуляторе :arcsin arccos arctgarcctg n!

Функция вычисления арктангенса есть. Другие можно выразить через арктангенс. Пусть х - число которое вводится в приемное поле калькулятора, у - это то, значение, которое мы выводим в поле ответа калькулятора.
1) arcsin 
if абс(x)lt;1 then
   y:=arctan(x/sqrt(1-x*x)
   else y:=Pi*x;

2) arccos 
y:=arctan(sqrt(1-x*x)/x);
if xlt;0 then y:=Pi+y;

3) arctg
y:=arctan(x);

4) arcctg
if x=0 then y:=Pi else y:=arctan(1/x);
if xlt;0 then y:=Pi+y;

5) n! 
y:=1;
for i:=1 to x do  y:=y*i;

6) %
y:=x/100

Следует при проверке иметь ввиду, что арксинус и арккосинус могут быть только в границах от -1 до 1. Иные значения вводить нельзя. Либо надобно добавить проверку на правильность входных данных.