将输入字符转换成自定义的字符问题

在memo中输入一段拼音如：cheng2 xu4 yuan2 点击确定后进行转换保存在自定义硬盘中文本文件中，打开文本显示0001 0002 0003 （假设cheng2对应的字符为0001 xu4对应的是0002 yuan2则为0003）
如何实现这个功能,用对照的方法，但如何用delphi实现呢？
希望大家指点一下