procedure TForm1.Button1Click(Sender: TObject);
var
img:TImage;
begin
img:=TImage.Create(nil);
img.Picture.Bitmap.Width:=panel1.width;
img.picture.Bitmap.Height:=panel1.height;
bitblt(img.canvas.handle,0,0,panel1.width,panel1.height,getdc(panel1.Handle),0,0,srccopy);
img.Picture.SaveToFile('d:/temp.bmp');
img.Free;
end;