将Ole对象放到一个Panel1中，在button1中加入如下代码即可实现。
procedure TForm1.Button1Click(Sender: TObject);
var
img:TImage;
JPeg: TJPegImage;
begin
img:=TImage.Create(nil);
JPeg:=TJPegImage.Create;
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);
JPeg.Assign(img.Picture.Graphic);
JPeg.SaveToFile('test.jpg');
img.Free;
JPeg.Free;
end;
