フォームに貼り付けたボタンを矢印キーで動作を変えたいのですが、
通常のアプリでは正常に動きますが、ActiveXFormだと正常に動きません。

procedure TActiveFormX.Start; //HTML側で呼び出しています。
begin
　DefButtonWndProc := Button2.WindowProc;
　Button2.WindowProc := ButtonWndProc;
end;

procedure TActiveFormX.ButtonWndProc(var Msg:TMessage);
begin
　if Msg.Msg = CN_KEYDOWN then begin
　　case Msg.WParam of
　　VK_DOWN: begin PostMessage(0, WM_KEYDOWN, VK_TAB, 0); Exit; end;
　　end;
　end;
　DefWndProc(Msg);
end;

なんか別のイベントがあるのでしょうか?教えてください
Win2K IE5.5Sp2 Delphi7Pro