计数器的实现源码,使用语言Delphi!