delphi + arcengine 连接arcsde+oracle的连接问题

<P>在vb6下连接正常</P>
<P>在delphi6下 打过补丁的代码如下，连接失败 为什么呢？</P>
<P>  pFact := coSDEWorkspaceFactory.Create As IWorkspaceFactory;<BR>  a := CoPropertySet.Create as IPropertySet;<BR>  a.SetProperty('SERVER', '192.168.0.179');<BR>  a.SetProperty( 'INSTANCE', 'esri_sde');<BR>  a.SetProperty( 'DATABASE', 'jmgt');<BR>  a.SetProperty('USER', 'sde');<BR>  a.SetProperty('PASSWORD', 'sde');<BR>  a.SetProperty('VERSION', 'SDE.DEFAULT');<BR>  pFact.Open(a,0,pWorkspace);<BR></P>

出现什么错误？