KeyHook, oder?!

[ghost007]

Hallo,
hab hier nen code schnippsel gefunden, der mit einem KeyHook events auslöset, wie unten z.B. WheelUp() und WheelDown().
Nur zum verständnis, sehe ich das richtig, das man die liste:

Delphi-Quellcode:

        174 : WheelDown();
        175 : WheelUp();

Weiterfühen könnte und für jeden buchstaben ein event ausführen lassen könnte?
Wenn ja, wie bekomme ich die "Codes" für andere tasten meiner tastatur?

CODE:

Delphi-Quellcode:

procedure TformMain.AppMessage(var Msg: TMsg; var Handled: Boolean);
var szKeyName: PChar;
  k: string;
begin

  with Msg do if (message=(WM_APP+666)) and ( wParam=13 ) then
  begin
      case Msg.lParam of
        174 : WheelDown();
        175 : WheelUp();
      end;
    Handled:=True;
  end;
end;