Probleme beim zeichnen auf ein Panel

[Khabarakh]

Ein Panel ist eben nicht zum Zeichnen da .
Spricht etwas gegen TPaintbox?

[add]

1. Musst du den DC nicht mit ReleaseDC wieder freigeben?
2. Bei mir funktioniert alles perfekt .

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var
  DC: HDC;
begin
  DC := GetDC(Panel1.Handle);
  BitBlt(DC, 0,0, Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height,
   Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
  ReleaseDC(Panel1.Handle, DC);
end;

[/add]