delphi制作的简易程序，用来计算1000-4000能被7和17整除的数，用memo显示出来。