delphi开发经典实例,有意者,可以相互研究(转)