В
компоненте TMemo предусмотрена функция отмены последней правки (Undo). Ее
можно вызвать следующим образом: Memo1.Perform(EM_UNDO,0,0); Узнать о
том, возможна ли отмена (т.е. есть ли что отменять) можно следующим
образом: UndoEnabled:=(Memo1.Perform(EM_CAUNDO,0,0)<>0);