TransparentBlt, ошибка "Параметр задан неверно"

TransparentBlt(Canvas.handle, 0, 0, 500, 500, bitmap.canvas.handle, 0, 0, 500, 500, ColorToRGB(clblack))

TransparentBlt( 
  Scr.Canvas.Handle,  // handle to destination DC 
  0, 0,               // x, y-coord of destination upper-left corner 
  Scr.Width,          // width of destination rectangle 
  Scr.Height,         // height of destination rectangle 
  Bmp.Canvas.Handle,  // handle to source DC 
  0, 0,               // x, y-coord of source upper-left corner 
  Bmp.Width,          // width of source rectangle 
  Bmp.Height,         // height of source rectangle 
  clBlack             // color to make transparent 
 );

procedure TForm1.Button1Click(Sender: TObject);
var
  bitmap : TBitmap;
begin
  bitmap := TBitmap.Create;
  bitmap.SetSize(500, 500);
  bitmap.Canvas.brush.Color := clRed;
  bitmap.Canvas.Rectangle(0, 0, 500, 500);
  bitmap.Canvas.brush.Color := clBlack;
  bitmap.Canvas.Rectangle(150, 150, 350, 350);
  
  TransparentBlt(Canvas.handle, 0, 0, 500, 500, bitmap.canvas.handle, 0, 0, 500, 500, clblack)
end;

  TransparentBlt(Canvas.handle, 0, 0, 500, 500, bitmap.canvas.handle, 0, 0, bitmap.Width, bitmap.Height, clblack)