TPageControl und Tastatur-Steuerung

[hincapie]

Hallo,
ich habe da ein Problem mit dem Wechseln von TabSheets innerhalb eines PageControls per Tastendruck.
Versucht habe ich es bisher damit:

Delphi-Quellcode:

procedure TEditForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ...
  if Key = VK_F11 then
  begin
    with PageControl1 do
         FindNextPage(ActivePage, true, true);
    Key := 0;
  end;
end;

Leider funktioniert es nicht!
Eine andere Möglichkeit gibt es offensichtlich nicht, da TPageControl ja kein OnKeyDown-Ereignis hat.
Ach ja, bei TEditForm ist KeyPreview := True;
Hat jemand da vielleicht eine andere Lösung gefunden?