三层结构出现问题，请高手解决(100分)

以下同样的代码我在可执行文件中运行正常，可是在Dll中系统提示我CoInitialize尚未初始化
请问为什么？

procedure TfrmEmployee.FormCreate(Sender: TObject);
var
EmployeeData,Cols:OleVariant;
employee:IEmployee;
RowCount,i,j:Integer;
begin
try
employee := CoEmployee.CreateRemote('landin');
// employee := CoEmployee.Create;
// employee.GetAllEmployeeData(EmployeeData,Cols);
except
messagedlg('连接远程应用服务器错误！',mtwarning,[mbOK],0);
end;
if employee <> nil then
begin
try
RowCount := VarArrayHighBound(EmployeeData,1);
sgEmployee.ColCount := Cols;
sgEmployee.RowCount := Rowcount;
for i := 0 to RowCount-1 do
for j := 0 to sgEmployee.ColCount -1 do
begin
sgEmployee.Rows.Add(EmployeeData[i+1,j]);
end;
except
messagedlg('数据格式错误！',mtwarning,[mbOK],0);
end;
end;
end;

[] sorry 没做过！

这个问题有这么难吗？
大家怎么只是看看，没有人能提供一丁点的帮助啊。
谁是斑竹？能不能帮我解决？

既然提示 CoInitialize 未初始化
那么就在dll的入口处加上 CoInitialize(nil) 啦
记得uses activex

to Pipi.
谢谢，我现在只能给你加上一百分，下次我一定给你补上！