Grafikfehlern und TCanvas

[Gandalfus]

Der Fehler liegt an der Stelle. Also die Schriftgrösse ändert sich von 8 auf 12 ohne das ich das irgendwo eingestellt habe. (Das habe ich durch suchen überpruft in meinem gesamten code wird nicht einmal die Schriftgrösse verändert).
Ich gehe davon auss, dass wenn ich das verändern der Schriftgrösse verhindere ich auch das Farben Problem löse.

Wenn ich den Code

Delphi-Quellcode:

Canvas := TCanvas.Create;
Canvas.Handle := Backpuffer.Canvas.Handle;
canvas.pen.color := cllime;
Canvas.Rectangle(10,10,50,random(60)+10);
canvas.Free;

durch

Delphi-Quellcode:

  
Backpuffer.canvas.pen.color := cllime;
Backpuffer.Canvas.Rectangle(10,10,50,random(60)+10);

ersetzte habe ich keine Fehler mehr

Aufruf und zeichen eines Textes ist übrigens so (in einem Timer):

Delphi-Quellcode:

Object.draw(FBackpuffer)
FBackpuffer.Canvas.textout(5,5,'jkgkj');