Полупрозрачный bitmap как в ACDSee

procedure MergeBitmap(Source: TBitmap; X, Y: Integer; Alpha: Real; var Dest: TBitmap);
var
  SourceSL: PByteArray;
  DestSL: PByteArray;
  I, J, Imax, Jmax: Integer;
begin
  //обязательное условие
  //Source.PixelFormat = pf24bit
  //Dest.PixelFormat = pf24bit
  if (Source.PixelFormat <> pf24bit) or (Dest.PixelFormat <> pf24bit) then Exit;
  //определяем границы сведения
  Jmax := Min(Source.Height, Dest.Height - Y);
  Imax := Min(Source.Width, Dest.Width - X);
  //и собственно сведение
  J := 0;
  while J < Jmax do begin
    SourceSL := Source.ScanLine[J];
    DestSL := Dest.ScanLine[J + Y];
    I := 0;
    while I < Imax do begin
      DestSL[(I + X) * 3 + 0] := Round(SourceSL[I * 3 + 0] * Alpha + DestSL[(I + X) * 3 + 0] * (1 - Alpha));
      DestSL[(I + X) * 3 + 1] := Round(SourceSL[I * 3 + 1] * Alpha + DestSL[(I + X) * 3 + 1] * (1 - Alpha));
      DestSL[(I + X) * 3 + 2] := Round(SourceSL[I * 3 + 2] * Alpha + DestSL[(I + X) * 3 + 2] * (1 - Alpha));
      Inc(I);
    end;
    Inc(J);
  end;
end;