Mein Delphi kennt keinen tangens

[oldie]

Ohne Umwandlung von Winkel in Bogenmass geht das nicht.

so geht's
Berg.fGegenkathete:=round(Berg.fAnkathete/tan(DegToRad(berg.FWinkel)));