如何响应动态创建的控件数组中一个控件的事件？

Question

如题，比如动态创建了N个TCPClient控件，当其中有一个控件触发了onerror改如何处理？

Answer 1

创建自定义procedure或function（视事件的类型而定），在创建控件后，将自定义的procedure或function赋给事件即可，例如procedure myOnError(...)...TCPClient.OnError=myOnError;(代码不一定对，只是个思路）

Answer 2

按TCPClient的onerror事件的格式写一个自定义事件然后在创建的时候赋值到TCPClient.OnError