TColorHFRec

type TColorHFRec = packed record

  case Byte of

    0: (

        B: THalfFloat;

        G: THalfFloat;

        R: THalfFloat;

        A: THalfFloat;

      );

    1: (

        Channels: array [0..3] of THalfFloat;

      );

end;