1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

    // Größe anpassen
    Image2.Left := imgsono.left;
    Image2.top := imgsono.top;
    Image2.width := imgsono.width;
    Image2.height := imgsono.height;
 
    // transparente Farbe festlegen, Ausfüllen und transpatent machen
    DoubleBuffered := true;
    Image2.Canvas.Brush.Color:=$FFFFFF;                       //Hintergrundfarbe, die Transparent erscheinen soll
    Image2.Canvas.FillRect(rect(0,0,Image2.Width,Image2.Height));   //mit transparenter Farbe Hintergrund füllen
    Image2.Picture.Bitmap.TransparentColor:=$FFFFFF;          //setzen der transparenten Farbe
    Image2.Picture.Bitmap.TransparentMode:=tmFixed;           //Modus
    Image2.Transparent:=true;                    

1:
2:
3:
4:
5:
6:
7:
8:

    //Beispiel zeichnen 
    Image2.Canvas.Brush.Color:=$FFFFFF;                       //Hintergrundfarbe, die Transparent erscheinen soll
    Image2.Canvas.FillRect(rect(0,0,Image2.Width,Image2.Height));  // löschen alte Zeichnung

    Image2.canvas.pen.width := 5;     // Zeichnen
    Image2.canvas.pen.color := clred;
    Image2.canvas.moveto(x,y);
    Image2.canvas.lineto(x2,y2);