语法问题 ( 积分: 100 )

type
TDrawGridEvent = procedure(channel: TChannel) of object;
TChannel = class
private
FOnDrawGrid: TDrawGridEvent;
end;

我要自定义一个事件TDrawGridEvent 在类TChannel 中，但是TDrawGridEvent 事件的一个参数就是TChannel，这样的语句该怎么写。
现在问题是把TDrawGridEvent 定义放在Tchannel前，参数中的channel就找不到定义，放在后面，属性FOnDrawGrid又找不到定义。
有没办法像在C中那样，先申请一下变量，在后面再完成定义。

type
TDrawGridEvent = procedure(channel: TChannel) of object;
TChannel = class
private
FOnDrawGrid: TDrawGridEvent;
end;

我要自定义一个事件TDrawGridEvent 在类TChannel 中，但是TDrawGridEvent 事件的一个参数就是TChannel，这样的语句该怎么写。
现在问题是把TDrawGridEvent 定义放在Tchannel前，参数中的channel就找不到定义，放在后面，属性FOnDrawGrid又找不到定义。
有没办法像在C中那样，先申请一下变量，在后面再完成定义。

type
TChannel = class;
TDrawGridEvent = procedure(channel: TChannel) of object;
TChannel = class
private
FOnDrawGrid: TDrawGridEvent;
end;
delphi源码中常看到这种写法的.

怎是一个强字能形容的。