Createoleobject总是无法执行！为什么？该如何处理

Createoleobject总是无法执行！为什么？
procedure TForm1.Button1Click(Sender: Tobject);
  var
  eclApp,WorkBook:Variant;
  xlsFileName:string;
  begin
  xlsFileName:=ExtractFilePath(Application.ExeName)+'ex.xls';
  try
  eclApp:=Createoleobject('Excel.Application');
  WorkBook:=CreateOleobject('Excel.Sheet');
  except
  ShowMessage('您的机器里未安装Microsoft Excel.');
  Exit;
  end;
  end;

执行以上代码只能显示：您的机器里未安装Microsoft Excel。编译时无问题！运行才出问题，而且有些机器没有问题，我试了几台机器，只有一台有这种问题！但所有机器同样都是装了Excel2003的！

------解决方案--------------------

探讨

已经重装过几次了，还是这个样子！