1:

DrawCanvas := TempCanvas;					

1:

DrawCanvas := Image1.Canvas;					

1:

 DingensCanvas.Picture := AndresDingensCanvas.Picture;					

1:

Bitmap1.Canvas.CopyRect(Rect(0, 0, Bitmap1.Width, Bitmap1.Height), Bitmap2.Canvas,Rect(0, 0, Bitmap1.Width, Bitmap1.Height));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

  var
    Temp: TBitmap;
begin
  Temp := TBitmap.Create; // Objekt anlegen
  try // was auch passiert...
    Temp.Pixelformat := pf24Bit; // Farbtiefe
    Temp.Width := Image1.Width; // und Größe
    Temp.Height := Image1.Height; // setzen
    with Temp.Canvas do begin // zeichnen
      Brush.Color := clMoneyGreen; // Hintergrundfarbe
      FillRect(ClipRect); // Hintergrund füllen
      Pen.Color := clWhite; // Vordergrundfarbe
      MoveTo(0,0); // Stiftposition setzen
      LineTo(Temp.Width,Temp.Height); // Linie zeichnen
    end;
    Image1.Picture.Bitmap.Assign(Temp); // Bild zuweisen
    Image1.Invalidate; // neuzeichnen auslösen
  finally // ...auf jeden Fall
    Temp.Free; // das Objekt wieder freigeben
  end;