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

Code:

unit tapage;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, ComCtrls;

type

TAPageControl = class(TPageControl)

private

   procedure CMDialogChar(var Msg: TCMDialogChar); message CM_DIALOGCHAR;

end;

procedure Register;

implementation

procedure TAPageControl.CMDialogChar(var Msg: TCMDialogChar);

var

i: Integer;

S: string;

begin

if Enabled then

   for I := 0 to PageCount - 1 do

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

       Pages[I].TabVisible then

     begin

       Msg.Result := 1;

       ActivePage := Pages[I];

       Change;

       Exit; // выход из цикла.

     end;

inherited;

end;

procedure Register;

begin

RegisterComponents('Test', [TAPageControl]);

end;

end.