如果你的控制字符只有一个字符那不存在 keendom 所说的问题：
如果有多个字符,为防止控制字符被编辑可使用protect属性，用消息来实现
//上接取属性语句
Richedit::CHARFORMAT2 fmt;
fmt.cbSize = sizeof(Richedit::CHARFORMAT2A);
fmt.dwMask = CFM_PROTECTED;
fmt.dwEffects = CFE_PROTECTED;
fmt.crTextColor = clTeal; //你要的颜色
SendMessage(Editor->Handle, EM_SETCHARFORMAT, SCF_SELECTION, (LPARAM)&fmt);
EditForm->Editor->Lines->Add(string);
//下接恢复属性语句
指定的文字实行只读保护
Editor->SelAttributes->Protected = false;
只要Protected一设为true，控制字符就根本输不进去。
设置保护关键值
所以要重新设置RichEdit1.SelStart和RichEdit1.SelLength，它们现在的真正位置
RichEdit1.SelAttributes.protected:=true后在没有任何编辑的情况下重新把RichEdit1.SelAttributes.protected:=false后就不能修改了，这时我把整个RichEdit1选中
解决办法：
SendMessage(RichEdit->Handle, EM_SETPARAFORMAT, EN_PROTECTED, 0);
在OnProtectChange事件作设置。
根据情况AllowChange=true或AllowChange=false;