另外
│ { 从问题b来看，当初Delphi设计事件时，搞得响应过程的参数各不相同是失策的
│ { 应该使用这样统一的过程：
│ { ProcedureDoSomeEvent(constdataIn:TrecIn;vardataOut:TrecOut);//不用ofobject
│ { TrecIn=Record
│ { selfClass:事件触发者的类
│ { selfForm:事件触发者所属的Form，可能冗余
│ { selfObject:事件触发者（相当于Sender）
│ { selfEvent:当前的事件（如单击还是双击）
│ { Data:以XML或INI表达的其它所有必须的传入信息（如：按键的值、选中的Grid的位置等等）
│ { End;
│ { TrecOut=Record
│ { Data:以XML或INI表达的过程所产生的所有的传出信息
│ { End;