RichEditでリドゥ(REDO)する

RichEditに Undo メソッドはあるのですが Redo のメソッドはありません。
Redo を行うには Perform でそれ用のメッセージ (WM_USER + 84) を送信します。
TMemo だと動作しません。

■ RichEdit でリドゥする例

procedure TSendDialog.Repeat1Click(Sender: TObject); begin SenderBody.Perform(WM_USER + 84, 0, 0); end;