用DELPHI 开发,适合初学者参考