Вопрос : Создайте щетку

Мое вопрос в том, что, как создать прозрачное поэлементное карту на каждом управлении? class= " lineNumbers " >

1 >
var 
MyBitmap: TBitmap;
Начните
MyBitmap: =TBitmap.Create;
MyBitmap: = image1.Picture.Bitmap;

//this создает изображение от image1
Form1.Brush.Bitmap: =MyBitmap;

//this создает изображение слишком, но изображение ново, оно не прозрачно с изображением form1
Memo1.Brush.Bitmap: =MyBitmap;

//this не создает изображение, прозрачное с form1
Button1.Brush.Bitmap: =MyBitmap;
filename " class= >