wie lösche ich Image canvas vordem Speichern

[thomas2009]

Leider kann ich nicht jetzt paintBox statt image verwenden, da viele Sachen mit
image verbunden sind

ich zeichne zum Beispiel punkte auf image1.Canvas so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, k, n: Integer;
  ACanvas: TCanvas;
  R: TRect;
begin

  ACanvas := Form1.image1.Canvas;
  R := Form1.ClientRect;
  ACanvas.Pen.Style := psSolid;
  ACanvas.Pen.width := 2;
  ACanvas.Pen.Color := clBlue;
  ACanvas.Brush.Color := clBlue;

  for i := 0 to (R.Right - R.Left) div 20 do
    for j := 0 to (R.Bottom - R.Top) div 20 do
    begin
      n := Round(20 * i);
      k := R.Top + Round(20 * j);
      ACanvas.MoveTo(n, k);
      ACanvas.LineTo(n+1, k+1);
    end;
end;