delphi string 只保留数字