勘误表

1、第36页代码：“TPersion = class”应该改为“TPerson = class”

2、第44页第9行：“可以定位到 TCopter.fly() 的地非曲直址”，应该改为“可以定位到 TCopter.fly() 的地址”

3、第66页第19行 “因为带领读者它们同样是用代码铸造成的”，应该改为“因为他们同样是用代码铸造成的”

4、第128页代码：“FDropFile: TMyNotifyEvent;”应该改为“FDropFile: TMyNotifyEvent: TDropFileNotifyEvent;”

5、第128页代码：“property OnDropFiles: TMyNotifyEvent read FDropFile write FDropFile;”应该为“property OnDropFiles: TDropFileNotifyEvent read FDropFile write FDropFile;”

6、第129页代码：“FEnabled := Enabled;”应该为“FEnabled := bEnabled;”

7、第192页代码中：“if frMatchCase in Option then”应该为“if not frMatchCase in Option then”

8、第193页下代码中：“if frMatchCase in Option then”应该为“if not frMatchCase in Option then”