Mehrere Tasten in einer Procedure abfragen?

[rd3]

OnKeyPress + KeyPreview = True

Delphi-Quellcode:

  if key = #13 then
  begin   //Enter key: TEdit, oder auch mehr...
    if (ActiveControl.ClassType = TEdit) then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;