delphi编写识别字符串中的数字有多少个，每一个是那些