undo RichEdit1

//undo RichEdit1 

//undo
RichEdit1.Perform(EM_UNDO,0,0);

//检查是否允许撤消
Undo1.Enabled:=RichEdit.Perform(EM_CANUNDO,0,0)<>0;

通过 Wiz 发布