我需要帮助来提高我下面的代码的效率，并稍微清理一下。如图所示image,x和y可以是整个屏幕周围的任何点，我正在尝试找到角度t。有什么办法可以减少这里的行数吗？注意:原点在左上角，向右/向下移动为正向移动o:=MiddleOfScreenX-x;a:=MiddleOfScreenY-y;t:=Abs(Degrees(ArcTan(o/a)));if(x>MiddleOfScreenX)thenbeginif(y>MiddleOfScreenY)thent:=180+telset:=360-t;endelseif(y>MiddleOfScreenY)thent:=180-t;代码是pas