procedure TForm1.Button1Click(Sender: TObject);
var
HH : THandle;
BMP : TBitmap;
begin
BMP := TBitmap.Create;
BMP.Width := Panel1.Width;
BMP.Height := Panel1.Height;
HH := GetDC(Panel1.Handle);
Bitblt(BMP.Canvas.Handle,0,0,Panel1.Width,Panel1.Height,HH,0,0,SRCCOPY);
Canvas.Draw(0,0,BMP);
ReleaseDC(Handle,HH);
end;