Delphi: 多实例模式修改为单实例模式

Delphi7 :

 服务端： remote data module + adoConnection + AdoQuery + datasetPrivader 

客户端： SocketConnection + CLientDataset + DataSource

环境：Windows 2008 + sql 2008r2 

修改为单实例模式：在DATAMODULE组件的代码修改。

TComponentFactory.Create(ComServer, TERPServer, Class_ErpServer, ciSingleInstance, tmFree) ; 

原来为(多实例模式)： 

TComponentFactory.Create(ComServer, TERPServer, Class_ErpServer, ciMultiInstance, tmApartment) ;