如何将Timage中的图像(定位的)导到word中去(50分)

在word里面编辑 宏 ，你看看代码
然后 在把 Timage的图片 插入到 word;
应该很容易实现的[]
你自己再看看
Sub Macro3()
'
' Macro3 Macro
' 宏在 2004-3-12 由 1 录制
'
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.InlineShapes.AddPicture FileName:= _
"C:/Documents and Settings/Administrator/My Documents/请高手帮我翻译一下。.files/dfwlogo.gif" _
, LinkToFile:=False, SaveWithDocument:=True
End Sub

我想直接用delphi把图像插到里面去，（因为我插的同时还有一些文字要插进去）

先保存图象,再插入word中

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
Var FWord :OleVariant; //Word应用程序
FDocument :OleVariant; //文档
FPicture:OleVariant;
tmpstr:string;
begin
FWord:= CreateoleObject('Word.Application');
FDocument:=FWord.Documents.Add(,,$00000000,); //新的文档
FWord.visible:=false;
tmpstr:='C:/1.jpg';
Image1.Picture.SaveToFile(tmpstr);
FPicture:=FDocument.InlineShapes.AddPicture(tmpstr,$00000000,$00000001,);
FPicture.ConvertToShape.select;
FDocument.Application.Selection.ShapeRange.width:=image1.Width;
FDocument.Application.Selection.ShapeRange.height:=image1.Height;
FDocument.Application.Selection.ShapeRange.IncrementLeft(10);
FDocument.Application.Selection.ShapeRange.IncrementTop(10);
FPicture:=null;
FWord.visible:=true;

end;

非常感谢这位大侠，你的例子非常好，不过我还有一点想请教您：
我还有一些文字想插入就像图中那样http://www.my2000.biz/chenj/jpg/t.jpg
小弟万分感谢