很早之前用Delphi写的小程序