请帮我改一下这段代码 [问题点数:20分,结帖人hansonboy]

Bbs3
本版专家分:1000
结帖率 99.59%
Bbs5
本版专家分:4879
Bbs3
本版专家分:1000
Bbs5
本版专家分:2441
Blank
蓝花 2001年9月 Delphi大版内专家分月排行榜第三
Bbs2
本版专家分:366