uses ActiveX;


把下面这段代码放到最后一个END的前面.


initialization
OleInitialize(nil);

finalization
OleUninitialize;