Mehrere Tasten in einer Procedure abfragen?

[FlatIron]

Ne schnellere Lösung wäre diese (TApplicationEvent aus der Registerkarte "Zusätzlich"):

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if msg.message = WM_KEYDOWN then
  begin
    if msg.wParam = 9 then
    begin
      ShowMessage('Tab wurde gedrückt!');
    end;
  end;
end;