静态绑定 ( 积分: 100 )

请教一问题，在VB编程中，有WithEvents关键字实现静态绑定，请问在DELPHI中如何实现呢？

谢谢

似乎类似 delphi 的属性读、写处理
function GetColor: TColor;
procedure SetColor(Value: TColor);
property Color: TColor read GetColor write SetColor;
另外我很奇怪，这个 WithEvents 关键字为什么不叫 WithEvents.net？似乎很不符合 MS 主打产品的风格哦...