从OleContainer读取图片到image上上的问题

Question

首先，我先通过ole 启动word：代码为OleContainer1.DoVerb(ovShow); 
然后我在word上放一个jpg图片
我乡把word上的图片放到image上，但是我的代码编译能通过，执行的时候就出现问题
代码为
procedure TForm1.tyth1Click(Sender: TObject);
var                                 //该段代码是保存代码
  Stream:TMemoryStream;
  Jpg:TjpegImage;
begin
      try
    Stream := TMemoryStream.Create; //  创建内存流
    OleContainer1.SaveToStream(Stream);   // 将图片保存到内存流中
    jpg.LoadFromStream(Stream);    // 加载图片
    image1.Picture.Assign(Jpg);
  finally
    Stream.Free;     // 释放内存流
  end;
end;
我的问题在那，应该怎么样来改正
谢谢各位了

Answer 1

没有创建jpg吧？！
－－－－－－－－－－－－－－
procedure TForm1.tyth1Click(Sender: TObject);
var                                 //该段代码是保存代码
  Stream:TMemoryStream;
  Jpg:TjpegImage;
begin
      try
    Stream := TMemoryStream.Create; //  创建内存流
    OleContainer1.SaveToStream(Stream);   // 将图片保存到内存流中
    jpg := TjpegImage.create;  //这个????
    jpg.LoadFromStream(Stream);    // 加载图片
    image1.Picture.Assign(Jpg);
  finally
    jpg.free;
    Stream.Free;     // 释放内存流
  end;
end;