DoubleBuffered -> CPU überlastet!?

[maximi]

So, jetzt habe ich diesen Code:

Delphi-Quellcode:

procedure TForm1.zeichnen;
var i:integer;
begin

  backpuffer.Canvas.Rectangle(0,0,800,600);
  for i := 0 to max do
  begin
    if(wand[i] <> nil) then
    begin
      backpuffer.canvas.draw(wand[i].Left,wand[i].Top,Image_wand[i].picture.bitmap);
    end;
    if(wario[i] <> nil) then
    begin
      backpuffer.canvas.draw(wario[i].Left,wario[i].Top,Image_wario[i].picture.bitmap);
    end;
  end;

BitBlt(canvas.handle, 0, 0, backpuffer.Width, backpuffer.Height, backpuffer.Canvas.Handle, 0, 0, srccopy);//Backpuffer aufs Formular
end;

und dazu ein Screenshot, wenn ich mich nach rechts bewege! Die grauen Stellen auf dem Bild sind die Gegner!

Kann mir jemand helfen??
Danke! Max