Рисование поверх другого изображения

var bmp, bmp2: TBitmap; //битмапы глобальные
procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := TBitmap.Create;
  bmp.Width := 419;
  bmp.Height := 447;
 
  bmp2 := TBitmap.Create;
  bmp2.Width := 419;
  bmp2.Height := 447;
//
  bmp.Canvas.Brush.Color := clWhite; // цвет фона белый
  bmp.Canvas.FillRect(ClientRect);
  bmp.TransParentColor := clWhite;
  bmp.TransparentMode := tmAuto;
  bmp.Transparent:=true;
 
  bmp2.Canvas.Brush.Color := clWhite; // цвет фона белый
  bmp2.Canvas.FillRect(ClientRect);
  bmp2.TransParentColor := clWhite;
  bmp2.TransparentMode := tmAuto;
  bmp2.Transparent:=true;
 
  with PaintBox1 do
  begin
    Width := bmp.Width;
    Height := bmp.Height;   
  end;
end;
 
(*Событие OnPaint  PaintBox'а*)
procedure TForm1.PaintBox1Paint(Sender: TObject);
var b:TBitmap;
begin
 b := TBitmap.Create;
 b.Width := 419;
 b.Height := 447;
 b.Canvas.Brush.Color := clWhite;
 b.Canvas.Pen.Color := clWhite;
 b.Canvas.rectangle(Rect(Point(0, 419), Point(0, 447)));
 
 b.Canvas.Draw(0,0,bmp);
 b.Canvas.Draw(0,0,bmp2);
 PaintBox1.Canvas.Draw(0,0,b);
 b.Free;
end;
 
(* Очистка холста Bitmap из памяти *)
procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
  bmp2.Free;
end;

(*Событие OnPaint  PaintBox'а*)
procedure TForm1.PaintBox1Paint(Sender: TObject);
var b:TBitmap;
begin
 b := TBitmap.Create;
 b.Width := 402;
 b.Height := 757;
 b.Canvas.Brush.Color := clWhite;
 b.Canvas.Pen.Color := clWhite;
 b.Canvas.rectangle(Rect(Point(0, 402), Point(0, 757)));
 
 (*Здесь происходит объединение  битмапа и image в один битмап*)
 b.Canvas.Draw(0,0,image1.Picture.Bitmap); //Рисование image1 в bitmap
 b.Canvas.Draw(0,0,bmp);
 pic.Canvas.Draw(0,0,b);
 b.Free;
end;
 
(* Очистка холста Bitmap из памяти *)
procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free; 
end;