请教关于用OLE对象调用project2000的问题 (100分)

各位高手好！
　　我碰到一个问题：在用delphi创建project2000的OLE对象是总是出错，简单的代码如下
　　
　　先在form中添加OLE对象：OleContainer1
　　　
　　procedure TForm1.BitBtn1Click(Sender: TObject);
　　begin
　　　　OleContainer1.CreateObject('msproject.project',true);
　　end;
　　
　　执行时true不起作用，而且双击对象时报错，我用同样的方法调用WORD和EXCEL没有任何问题，
而且我用VB去实现时也不存在任何问题，
　　另，我试了用createoleobject('msproject.application')调用方法也没有问题。
各位请帮我！！！

请各位帮忙，在线等待，急用！！！！！！！

快帮帮我，否则过了五.一就什么都完了！！！！！！！

有人会吗

Deborah Pate 网站的范例，我没有试验过

uses
MSProject_TLB

// Global
Var
MSProject: Variant;

procedure TForm1.OpenProjectClick(Sender: TObject);
try
// Initialise MSProject variant to be the MSProject Application
MSProject := CreateOleObject ('MSProject.Application');
try
MSProject.Visible := True;
MSProject.Projects.Add(False);
MSProject.ActiveProject.Title := 'Testing Here';
except
on E: Exception do ShowMessage('Exception Error...' +
E.Message);
end;
except
on E: Exception do ShowMessage('MS Project App not found...' +
E.Message);
end;
end;

function TForm1.AddTask;
var
Name: OleVariant;
begin
Result := False;
if not VarIsEmpty(MSProject) then begin
MSProject.ActiveProject.Tasks.Add('Task Name Here');
Result := True;
end;
end;

procedure TForm1.CloseProjectClick(Sender: TObject);
begin
if not VarIsEmpty(MSProject) then begin
MSProject.Quit(pjDoNotSave);
MSProject := NULL;
end;
end;

Sorry 看错，你问的是 OleContainer 的问题，我不知道，也没有时间试验