کنترل Ctrl+Z,Ctrl+E,Ctrl+Ent در RichEdit

[mbshareat]

سلام
میخوام بشه بیش از یک مرحله RichEdit رو Undo کرد.البته کامپوننت اینطوری دیدم اما نمی دونم قابل اطمینان هست یا نه(نصبش نکردم)
علوه بر این برای سازگاری با قسمتهای دیگه برنامه نیاز دارم Ctrl+E (وسط چین) , Ctrl+Ent رو خودم بررسی کنم و وقتی فشار داده شدند فشار کلیدهایی رو شبیه سازی کنم.
بلد نیستم کامپوننت رو سفارشی کنم.از این صفحه (http://www.delphigroups.info/2/2c/441410.html) هم نفهمیدم چطور کار کنم.
می دونم WM_Undo هم داریم اما چطور این کار رو بکنم؟ و کارکترهای دیگه هم که گفتم چی؟

[mbshareat]

onShortCut فرم رو میشه استفاده کرد؟

[mbshareat]

به این کدر رسیدم:
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

..
procedure TEditorForm.FormCreate(Sender: TObject);
Application.OnMessage := AppMessage;

procedure TEditorForm.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.hwnd = RichEdit1.Handle) //if the focus is in the RichEdit1
and (Msg.Message=WM_KEYDOWN) then //if the user pressed a key
begin
if (GetKeyState(VK_CONTROL) < 0)//control isdown
and (Msg.wParam<>17)//Ctrl Without Key
and ((Msg.wParam=69)//Center:E
or (Msg.wParam=76)//Left:L
or (Msg.wParam=82)//Right:R
or (Msg.wParam=89)//Y:Redo
or (Msg.wParam=90))//Z:Undo
then
Begin
if Msg.wParam=89 then
Redo;
if Msg.wParam=90 then
Undo;
Handled := True;
End;
end;
end;

فکر نمی کردم تایپ لاتین وسط فارسی در ریچ ادیت اینقدر سخت باشه.کلا کامپوننت پیچیده ایه هست.