Как использовать клавишу-акселератор в TTabsheets?

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;