用Delphi实现观察者模式(Observer模式)