function HeadingToRadian(Heading: integer): Double; begin Result:=(heading - 32768) / 32768 * pi; end;