Converts 32bit Single to 16bit half floating point.

function FloatToHalf(Float: Single): THalfFloat;

ImagingFormats (at line 168)