Как использовать клавишу-акселератор в TTabSheets (TPageControl)

Code:

type

TForm1 = class(TForm)

   PageControl1: TPageControl;

   TabSheet1: TTabSheet;

   TabSheet2: TTabSheet;

   TabSheet3: TTabSheet;

private

   {Private declarations}

   procedure CMDialogChar(var Msg:TCMDialogChar);

   message CM_DIALOGCHAR;

public

   {Public declarations}

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMDialogChar(var Msg:TCMDialogChar);

var

i: integer;

begin

with PageControl1 do

begin

   if Enabled then

     for i := 0 to PageControl1.PageCount - 1 do

       if ((IsAccel(Msg.CharCode, Pages[i].Caption)) and

       (Pages[i].TabVisible)) then

       begin

         Msg.Result:=1;

         ActivePage := Pages[i];

         exit;

       end;

end;

inherited;

end;