请教高人怎样取消delphi文本编辑框中新添加的字符串？

点击按钮，用richedit.lines.add('123');在原文本中添加字符“123”，我想再点击取消“123”的显示，就是恢复原来文本的样子，菜鸟请问怎么做啊，有没有简便的方法？
richedit1.Undo;虽能通过编译，但根本就不起作用；Richedit1.Lines.Delete(richedit1.Lines.Count-1);倒是可以，对于richedit.lines.add('123');尚可，但要是对于多行字符串呢？假如把“123”换成具有5、6行的字符串，难道要用5、6个Richedit1.Lines.Delete(richedit1.Lines.Count-1);这样的语句么？是不是就没有更好的办法了呀

richedit1.Undo;
//好像只有击键了UNDO以起作用。
要不，就用
Richedit1.Lines.Delete(richedit1.Lines.Count-1);