能不能直接修改堆栈的深度来投机取巧？
我这方面不熟
那个调用是delphi发起的事件响应

你以为就你看过功夫啊－－真的要修改vcl，
只要改这里就行了Delphi的控件事件响应函数，
都做成统一的函数类型就好了－－现在是五花八门
其实完全可以这样定义：
Procedure DoSomeEvent(const dataIn:TrecIn;var dataOut:TrecOut); //不用of object
TrecIn=Record
selfClass:事件触发者的类
selfForm:事件触发者所属的Form，可能冗余
selfObject:事件触发者（相当于Sender）
selfEvent:当前的事件（如单击还是双击）
Data:以XML或INI表达的其它所有必须的传入信息（如：按键的值、选中的Grid的位置等等）
End;
TrecOut=Record
Data:以XML或INI表达的过程所产生的所有的传出信息
End