Podwójny vk_tab

Witam dlaczego jak się da w zdarzeniu

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if msg.CharCode = vk_tab then
 showmessage('naciśnięto tabulator');

to showmessage wyświetla się dwa razy a nie raz i jak temu zaradzić?

Z góry wielkie dzięki ;-)

  if Msg.CharCode = VK_TAB then
  begin
    Handled := True;
    MessageDlg('tab', mtWarning, [mbOK], 0);
  end;

Wielkię dzięki :-) :-) :-) </url>