delphi的demos/midas/setparam下子目录中的两个procedure(100分)

delphi的demos/midas/setparam下子目录中的两个procedure ：
TSetParamDemo.SetParamDemoCreate(Sender: TObject)
TSetParamDemo.SetParamDemoDestroy(Sender: TObject);
是做什么的啊，是怎么调用的啊

这两个工程我打开看了，实际上很简单，客户端TDCOMConnection与服务器端建立连接时
即：TDCOMConnection.connected:=True;时触发服务器端的远程数据模块ONCREATE事件；
TDCOMConnection.connected:=False;时触发服务器端的远程数据模块ONdestroy事件；
例如：你用delphi先打开服务器项目，在ONCREATE事件处按F5设置断点，按F9运行服务器；
然后再打开一个delphi，在其中打开client.dpr项目,打开Form1窗体，将其中的TDCOMConnection的
属性设置为false；观看服务器的响应和运行效果；反之将TDCOMConnection的属性设置为
true看服务器的响应和运行效果；

原理：
远程数据模块是无状态对象，只有当与客户端建立连接时才创建；
所以，当客户端连接数逐渐增加时，中间层服务器所占的系统资源也不断的
增加（你可以测试一下）；

接受答案了.