RichEdit1.SelText := チョメチョメ; を Undo するには？

Undo 2004-11-21 04:41:35 No: 11843

お世話になります。
RichEdit に SelText := チョメチョメ; で文字を挿入すると、標準アクションの TEditUndo で取り消すことができません。TEditUndo を関連付けたメニュー、ツールボタンは無効状態になります。
どうすれば [元に戻す] ことができるか教えて頂けないでしょうか？

はて？ 2004-11-21 18:59:55 No: 11844

おかしいですね。
普通にイベントをオブジェクトインスペクタでセットして、そのハンドラを記述すれば、SelTextの文字挿入で TEditUndo に関連付けられたメニュー、ツールボタンは有効になりますけど？

試しに以下のようにしてみたらどうですか？

RichEdit1.SelText := 'チョメチョメ';
EditUndo1.Enabled := RichEdit1.CanUndo;

Undo 2004-11-22 00:35:59 No: 11845

はて？さん、どうもです。

状況は変わりません。