var
  a, b : HDC;
  sx, sy : integer;
  mybmp : TBitmap;
  myimage: TImage;
  MyFormat : Word;
  AData : THandle;
  APalette : HPALETTE;
begin
  a := GetDC(Panel2.Handle);
  sx := Panel2.Width;
  sy := Panel2.Height;      mybmp:= TBitmap.Create;
  myimage:= TImage.Create(self);      Image1.Width := sx;
  Image1.Height := sy;
  b := Image1.Canvas.Handle;
  BitBlt(b, 0, 0, sx, sy, a, 0, 0, SRCCOPY);
  mybmp.Canvas.Draw(0, 0, Image1.Picture.Bitmap);
  mybmp.Assign(Image1.Picture.Bitmap);
//   if you want to save this picture , use this code!!
  mybmp.SaveToFile('c:\1.bmp');