.

 

 

.

 

 

.

 

 

.

 

运行结果：

Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---命令模式之RemoteControlTest