Очистка Canvas объекта TImage

TForm1=class(TForm)
...
  pb1:TPaintBox;
  procedure FormCreate(Sender:TObject);
  procedure FormDestroy(Sender:TObject);
  procedure pb1Paint(Sender:TObject);
...
private
  bmp:TBitmap;
public
  ObjList:TObjectList<TMyGraphObject>;
  procedure drawObject(obj:TMyGraphObject);
end;
 
procedureTForm1.FormCreate(Sender:TObject);
begin
  bmp:=TBitmap.Create();
  objList:=TObjectList<TMyGraphObject>.Create(true);
  bmp.LoadFromFile(Filename);
end;
 
procedure Form1.FormDestroy(Sender:TObject);
begin
  bmp.free;
  objList.free;
end;
 
procedure Form1.pb1Paint(Sender:TObject);
begin
  // вот здесь все, что нужно, рисуется 
 
  // рисунок из bmp
  pb1.canvas.Draw(0,0,bmp,1);
 
 // Поверх него всякие твои объекты
  for i:=0 to objList.Count-1 do
    drawObject(objList[i]);
end;
 
procedure Form1.drawObject(obj:TMyGraphObject);
begin
   // выяснение что за объект и его рисование
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture := nil;
  Image1.Canvas.Brush.Color := clWhite; //Цвет кисти - белый. Или так: := RGB(255, 255, 255);
  Image1.Canvas.FillRect(Image1.BoundsRect);
end;

procedure TForm1.PBPoliesPaint(Sender: TObject);
var i: integer;
begin
  if gotmap then PBPolies.Canvas.Draw(0,0,map,1); //если битмап загружен в map, то рисуем его
  if High(poly)>=0 then //данные для рисования - в двумерном массиве. Проверка, есть ли в массиве данные...
    for I := 0 to High(poly) do
      if High(poly[i])>=0 then //...и есть ли данные в подмассиве. Рисуем замкнутый незакрашенный контур
        begin
          PBPolies.Canvas.Polyline(poly[i]);
          PBPolies.Canvas.MoveTo(poly[i,0].x, poly[i,0].y);
          PBPolies.Canvas.LineTo(poly[i,High(poly[i])].X, poly[i,High(poly[i])].y);
        end;
  if f1>=0 then //Часть контуров может оказаться закрашенной
    begin
      PBPolies.Canvas.Brush.Color:=$00FFD296;
      PBPolies.Canvas.Polygon(poly[f1]);
    end;
  if f2>=0 then
    begin
      PBPolies.Canvas.Brush.Color:=$00FFB450;
      PBPolies.Canvas.Polygon(poly[f2]);
    end;
  if f3>=0 then
    begin
      PBPolies.Canvas.Brush.Color:=$00FF0000;
      PBPolies.Canvas.Polygon(poly[f3]);
    end;
end;