TeeChart的截取图象后直接送到WORD中(20分)

从来没做过OLE，请问如何实现呢？

用剪贴板试试

给你点原码，参考一下吧。
TempImage := Timage.Create(application);//产生一个Image的实例。
tempimage.parent := nil;
TempImage.Picture.Assign(PasPicture); //给实例付值。
try
TempImage.Picture.SaveToClipboardFormat(MyFormat, AData, APalette);//把剖面图发送到剪贴板，设定句柄。
ClipBoard.SetAsHandle(MyFormat, AData);
finally
Mydoc.Paragraphs.Item(ParagraphsNum).Range.Paste;//把剪贴板上的图片贴到word的指定段落。

还有一招，把Teechart框上一个Image，用拷贝的办法。
Co_Manager_F是个Form
Co_Manager_F.ExpPM.Canvas.CopyRect(Co_Manager_F.ExpPM.ClientRect,Co_Manager_F.TabControl1.Canvas,Co_Manager_F.TabControl1.ClientRect);
Co_Manager_F.ExpPM.Stretch:=True;
PasteImage(Mydoc, Co_Manager_F.ExpPM.Picture, CurrentP); //向Word中插入图片。
Co_Manager_F.Close;

给你参考一下吧。

接受答案了.