如何在word中插入图片

代码如下：
procedure TFMOConfig.Button1Click(Sender: TObject);
var FileName, ConFirmConversions, ReadOnly, AddtoRecentFiles, PasswordDocument, PasswordTemplate,
  Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, visible, ItemIndex: OleVariant; FileName: widestring;
 range, confirmConversions, link, attachment: Olevariant;begin
  FileName := 'D:\mydoc\1.doc';
  ConFirmConversions := EmptyParam;
  ReadOnly := false;
  AddtoRecentFiles := true;
  PasswordDocument := EmptyParam;
  PasswordTemplate := EmptyParam;
  Revert := EmptyParam;
  WritePasswordDocument := EmptyParam;
  WritePasswordTemplate := EmptyParam;
  Format := EmptyParam;
  Encoding := EmptyParam;
  visible := true;
  ItemIndex := 1;
  WordApplication1.Connect;
  WordApplication1.Visible := true;
  WordApplication1.Caption := 'wyfywfywasdf';
  WordApplication1.Documents.Open(FileName, ConFirmConversions, ReadOnly, AddtoRecentFiles, PasswordDocument,
    PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, visible);  WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
//********************************
  range := EmptyParam;
  FileName := 'D:\mydoc\2.jpg';
  confirmConversions := EmptyParam;
  link := true;
  attachment := EmptyParam;  range := EmptyParam;
  FileName := 'D:\wangyunfei\网优之家\Code\map\2.jpg';
  confirmConversions := EmptyParam;
  link := true;
  attachment := EmptyParam;
  WordDocument1.Range.Sentences.Item(2).InsertFile(FileName, range,confirmConversions, link,attachment);
end;但是执行到最后一句时总是提示出错
---------------------------
Debugger Exception Notification
---------------------------
Project MO.exe raised exception class EOleException with message '命令失败'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------请问应该怎么做呢？