Raciocinio logico erroneo, preciso arrumar a conta

olá, eu estou com uma divida na sequencia logica desse calculo abaixo!

IA:=strtofloat(E1.text);
AR:=strtofloat(E2.text);
AI:=strtofloat(E3.text);
IA * sen(AI) = x * sen(AR);
x := IA * sen(IA) / Sen(AR);
E4.text:=floattostr(X);

este raciocinio, da um resultado diferente de meu esboço no carderno...

no caderno é assim:

IA * Sen AI = x * sen(AR)
1 * sen 60º = x * sen 45º
1 * Raiz3/2 = x * Raiz 2/2
x = raiz3/2 / raiz2/2
x = raiz6/2

Como posso resolver está conta, no delphi?
Pesso ajuda pois tentei varios metodos, mais nenhum chegou perto.
os resultados deram -3,20...
E isso eu não quero...

variaveis todas reais...