[Delphi] - Jak wrzucic PaintBox'a do BMP

 
<b>begin</b> 
  BMP := TBitmap.Create;
  Bmp.LoadFromFile('c:\p.bmp');
  Canvas.Brush.Bitmap:=bmp;
  bmp.Canvas.Draw(0,0, bmp);
  bmp.Canvas.Pixels[1, 1] := clRed;
  bmp.Canvas.Pixels[2, 1] := clRed;
  PaintBox1.Canvas.Draw(0,0,bmp);
  PaintBox1.Canvas.Brush.Bitmap:=bmp;
  Bmp.Canvas.Assign(PaintBox1.Canvas);  <b>ta linia jest błędna</b>
  bmp.SaveToFile('c:\a.jpg);
<b>end;</b>

Witam. Chciałbym zrobić rzecz, którą uwidacznia powyższy błędny kod, a mianowicie, wrzucić do paintbox'a obraz, następnie porysować sobie po nim, a następnie wrzucić z powrotem z PaintBox'a do BMP, i to zapisać do pliku.

W chwili kompilacji pojawia mi się następujący błąd:

Cannot assign a TControlCanvas to a TBitmapCanvas

Proszę o opomoc.

Zamiast Assign przerysuj. Użyj CopyRect.