[xkor]

мм а почему в градусах и чем плохи отрицательные значения?, мне так бы больше понравилось

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