Смешивание цветов RGBA

function BlendRGBA(color1, color2: Cardinal): Cardinal;
var
  r1, g1, b1, a1, r2, g2, b2, a2, a: Single;
 
  function mix_clr(const c1, c2: Single): single;
  var
    k: single;
  begin
    k := a2 + (1 - a1) * (1 - a2);
    result := c1 * a1 + (c2 - c1*a1) * k;
  end;
 
begin
  r2 := byte(color2) / 255;
  g2 := byte(color2 shr 8) / 255;
  b2 := byte(color2 shr 16) / 255;
  a2 := byte(color2 shr 24) / 255;
 
  r1 := byte(color1) / 255;
  g1 := byte(color1 shr 8) / 255;
  b1 := byte(color1 shr 16) / 255;
  a1 := byte(color1 shr 24) / 255;
 
  r1 := mix_clr(r1, r2);
  g1 := mix_clr(g1, g2);
  b1 := mix_clr(b1, b2);
 
  a := a1 + a2 * (1 - a1);
 
  result := Round(r1*255) or (Round(g1*255) shl 8) or
        (Round(b1*255) shl 16) or (Round(a*255) shl 24);
end;

dst.r:=((src.a*(src.r-dst.r)-dst.r+255) shr 8)+dst.r;
dst.g:=((src.a*(src.g-dst.g)-dst.g+255) shr 8)+dst.g;
dst.b:=((src.a*(src.b-dst.b)-dst.b+255) shr 8)+dst.b;
n    :=dst.a+src.a;
dst.a:=n or (-(n shr 8));  //для альфа-канала арифметика с насыщением

type
  TMyColor = Cardinal;
...
function AlphaBlendRGBA(color1, color2: TMyColor): TMyColor;
var
  r1, g1, b1, a1, r2, g2, b2, a2, a, b: byte;
begin
  a2 := byte(color2 shr 24);
  if a2 = 255 then
    begin
      result := color2;
      exit;
    end;
  r2 := byte(color2);
  g2 := byte(color2 shr 8);
  b2 := byte(color2 shr 16);
  r1 := byte(color1);
  g1 := byte(color1 shr 8);
  b1 := byte(color1 shr 16);
  a1 := byte(color1 shr 24);
 
  b := a1 * (255 - a2) div 255;
  a := a2 + b;
  if a > 0 then
    begin
      r1 := (r2*a2 + (r1 * b)) div a;
      g1 := (g2*a2 + (g1 * b)) div a;
      b1 := (b2*a2 + (b1 * b)) div a;
    end
  else
    begin
      result := 0;
      exit;
    end;
  result := r1 or (g1 shl 8) or (b1 shl 16) or (a shl 24);
end;