关于qq中发送聊天内容的屏蔽字

请问delphi中如何截取qq聊天内容中的输入框中文字。并且进行转换。
比如要把“人民币，你好”替换成“美元，你好”。在qq的输入框中输入了“人民币，你好”，按下ctrl＋回车后，发送的就是
“美元，你好”。请问如何实现，给个具体例子让我学习下，非常感谢！