Grafikfehlern und TCanvas

[Sunlight7]

Delphi-Quellcode:

procedure TKlasse.draw(var Backpuffer: TBitmap
var
  Canvas: TCanvas;
begin

  Canvas := TCanvas.Create;
  Canvas.Handle := Backpuffer.Canvas.Handle;//!!!
  canvas.pen.color := cllime;
  Canvas.Rectangle(10,10,50,random(60)+10);
  canvas.Free; // Damit löscht Du das Canvas Handle vom Bitmap

end;

Sollte vor Free nicht Canvas.Handle:=0 sein?
Zumindest mach ich das immer so.