在单元中加入以下语句就行 initialization OleInitialize(nil);
finalization OleUninitialize;
本文地址：http://com.8s8s.com/it/it4650.htm