Grafikfehlern und TCanvas

[Gandalfus]

Folgender Code führt zu Grafikfehlern. Farben und Schriftgrösse ändern sich, wenn man mit der Maus das Fformular verlässt. (und nach dem Aufruf der Methode nach auf das Bild zeichnet).
Der Code ist gekürtzt. Ich möchte eigendlich an eine dll nur den Canvas Handle weitergeben.

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;

end;