如何做可以在WORD中插入的对象?(急)(200分)

WORD中有插入对象的功能。我的问题是我如何实现可以插入到WORD的对象（就像Calendar Control9.0 、RealPlayer G2 Control 、画笔图片等）？是不是要实现什么特殊的接口？这些对象是不是有特殊的注册机制？我不是很懂这个，希望各位大大能帮帮忙！分不够可以再加。

希望有知道的大大能帮帮忙!谢谢!

我也不是很明白！
它们好象都是activex控件！

我作过在Word中插入Excel和OutLook，至于在其中插入RealPlayer等应该是用Api和接口吧！
procedure TExcelToWord.CopyCellsToWord;
var
Range:Variant;
i:Integer;
begin
WordApp:=CreateOleObject('Word.Application');
WordApp.Visible:=True;
WordApp.Documents.Add;
Range:=WordApp.Documents.Item(1).Range;
Range.Text:='Phoenix Control Word:';

for i:=1 to 3 do
WordApp.Documents.Item(1).Paragraphs.Add;

Range:=WordApp.Documents.Item(1).Range(WordApp.Documents.Item(1).Paragraphs.Item(3).Range.Start);
Range.Paste;

for i:=1 to 3 do
WordApp.Documents.Item(1).Paragraphs.Add;
end;

procedure TExcelToWord.MailDocument;
begin
WordApp.Documents.Item(1).SaveAs('d:/My Work/文本文档/foo.doc');
WordApp.Options.SendMailAttach:=True;
WordApp.Documents.Item(1).SendMail;
end;

PhoenixPower
我想问的是我怎么能像REALPLAY一样提供对象供WORD插入.

怎么没有知道的大大呀?[]

怎么没有人知道呀!?太失望了!
第三天了!怎么达人还没出现.现在的DFW到底怎么了?各位大大不要只做潜水艇呀!

因为实在是很急,只好自己往上顶了,希望斑竹不要怪罪.

插入一个Calendar Control8.0对象在word中：
procedure TForm1.Button1Click(Sender: TObject);
var
wrdSelection:Variant;
begin
//创建一个word对象
wordApp:=CreateOleObject('Word.Application');
wordApp.Visible:=true;
//创建一个word文档
wordDoc:=wordApp.Documents.Add();
wordDoc.Select;

wrdSelection:=wordApp.selection;

//加入一个Calendar Control8.0对象
wrdSelection.InlineShapes.AddOLEObject('MSCAL.Calendar.7','',False,False);
//加入一个Calendar Control8.0对象
wrdSelection.InlineShapes.AddOLEObject('rmocx.RealPlayer G2 Control.1','',False, False);

。。。。。。其他的可以参照word宏生成的脚本，

心灵琴音:
首先谢谢你的回答!但我的主要问题是我如何实现像Calendar Control8这样的对象来供WORD使用.可能是我对问题的描述不够清楚.麻烦大大了!