CMX_COLOR

function fillCMX_COLOR(Red, Green, Blue: Byte; const Alpha: Byte = 255): TCMX_COLOR;
begin
  Result.Red:=Red;
  Result.Green:=Green;
  Result.Blue:=Blue;
  Result.Alpha:=Alpha;
end;

procedure TForm1.Button1Click(Sender: TObject);
var CMX_COLOR: TCMX_COLOR;
begin
  CMX_COLOR := fillCMX_COLOR(0,128,255);
  {  =  CMX_COLOR := fillCMX_COLOR(0,128,255,255); }
end