[ProDaNTe]

Есть изображение TBitmap, на нем есть изображение маска мне надо по этой маске скопировать изображение с соблюдением прозрачности

Код:

  for y := 0 to height - 1 do begin
    for x := 0 to width - 1 do begin
        if RGB(GetRValue(Image3.Canvas.Pixels[x,y]),GetGValue(Image3.Canvas.Pixels[x,y]),GetBValue(Image3.Canvas.Pixels[x,y]))<>RGB(255,255,255) then begin
      ImageProgress.Canvas.CopyRect(Rect(x,y,x+1,y+1),Image4.Canvas,Rect(x,y,x+1,y+1));

Но надо с прозрачностью!