注释一下，给200分(200)

TForm1.Button1Click(37C0)TControl.ClickTButton.ClickTButton.CNCommand((48401, 660, 0, 524948, 0))TControl.WndProc((48401, 660, 524948, 0, 660, 0, 660, 8, 0, 0))TWinControl.WndProc((48401, 660, 524948, 0, 660, 0, 660, 8, 0, 0))TButtonControl.WndProc((48401, 660, 524948, 0, 660, 0, 660, 8, 0, 0))TControl.Perform(48401,660,524948)DoControlMsg(524948,(no value))TWinControl.WMCommand((273, 660, 0, 524948, 0))TCustomForm.WMCommand((273, 660, 0, 524948, 0))TControl.WndProc((273, 660, 524948, 0, 660, 0, 660, 8, 0, 0))TWinControl.WndProc((273, 660, 524948, 0, 660, 0, 660, 8, 0, 0))TCustomForm.WndProc((273, 660, 524948, 0, 660, 0, 660, 8, 0, 0))TWinControl.MainWndProc((273, 660, 524948, 0, 660, 0, 660, 8, 0, 0))StdWndProc(918056,273,660,524948)TWinControl.DefaultHandler((no value))TControl.WMLButtonUp((514, 0, 48, 13, (48, 13), 0))TControl.WndProc((514, 0, 852016, 0, 0, 0, 48, 13, 0, 0))TWinControl.WndProc((514, 0, 852016, 0, 0, 0, 48, 13, 0, 0))TButtonControl.WndProc((514, 0, 852016, 0, 0, 0, 48, 13, 0, 0))TWinControl.MainWndProc((514, 0, 852016, 0, 0, 0, 48, 13, 0, 0))StdWndProc(524948,514,0,852016)TApplication.HandleMessageTApplication.RunProject1

这个还要注释吗？前面是方法名，后面括号里面的是参数（有些是对象地址）举个例子，WndProc的参数是var Message: TMessageTWinControl.WndProc((48401, 660, 524948, 0, 660, 0, 660, 8, 0, 0))里面 (48401, 660, 524948, 0, 660, 0, 660, 8, 0, 0) 就是TMessage的内容： TMessage = packed record Msg: Cardinal; case Integer of 0: ( WParam: Longint; LParam: Longint; Result: Longint); 1: ( WParamLo: Word; WParamHi: Word; LParamLo: Word; LParamHi: Word; ResultLo: Word; ResultHi: Word); end;