1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
var MyBitmap: TBitmap; Anfangen MyBitmap: =TBitmap.Create; MyBitmap: = image1.Picture.Bitmap; //this verursacht ein Bild von image1 Form1.Brush.Bitmap: =MyBitmap; //this verursacht ein Bild auch, aber das Bild ist neu, es ist nicht transparent mit dem Bild form1 Memo1.Brush.Bitmap: =MyBitmap; //this verursacht ein Bild, transparent nicht mit dem form1 Button1.Brush.Bitmap: =MyBitmap;