这段代码看不明白，请大家帮帮忙！

Question

我是个初学者，下面的代码我有两个地方看不明白，请大家帮帮忙解释一下，先谢了。
interfaceuses
  Windows, Messages, SysUtils, Classes, Forms, AdPort;const
  Msg1 = WM_USER + 1;//在这里定义这个有什么用？type
  TMsgEvent = procedure( Sender : TObject; Msg : string) of object;//这个又是什么意思？  TExApdComp = class( TComponent)

Answer 1

1、一般情况下是自定义消息，可能会有类中的方法
  procedure Msg1Func(var Msg: TMessage);message Msg1;
2、一般是回调函数的定义，这里必须是对象的方法（因为of object）。
  在类中会有这样的函数
  procedure MsgEvent(Sender : TObject; Msg : string);

Answer 2

自己定义的消息要大于WM_USER   所以要加1

Answer 3

Msg1 = WM_USER + 1;//是自定义消息常量
TMsgEvent = procedure( Sender : TObject; Msg : string) of object;//
是定义一个过程变量可以在后面的程序中将其指派给某个事件或方法
 比如指派给自定义消息事件

Answer 4

对于过程变量的作用，可以给你举个例子：
你动态创建一个Button1，这时你可以用Button1.OnClick=过程变量,这样你动态创建的Button1的OnClick事件就是你的过程变量的代码了