[xkor]

кстати зачем вычитание?, у меня в боте прекрасно пашет так

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