delphiopc简单的程序入门看看学习的时候写的有个功能没有实现