Mehrere Tasten in einer Procedure abfragen?

[Bummi]

für Tab ins OnShortCut des Forms hängen

Delphi-Quellcode:

procedure TForm2.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  KeyCode: TShortCut;
begin
  KeyCode := Menus.ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
  case KeyCode of
    VK_TAB: ShowMessage ('tab');
  else
    Exit;
  end;

  Handled := True;

end;