TXYZA

type TXYZA = packed record

public

  X: single;

  Y: single;

  Z: single;

  alpha: single;

  class function New();

  procedure ChromaticAdapt();

end;