TWordXYZA

type TWordXYZA = packed record

public

  X: Word;

  Y: Word;

  Z: Word;

  alpha: Word;

  class function New();

  procedure ChromaticAdapt();

end;