Prob mit Tastatur Hook

[wayne312]

Hey leute,

ich versuche mich momentan an den Windows API Hooks. Das hab ich auch alles soweit verstanden nur mein tastatur hook macht irgentwie ein paar probleme..
also hier ma der Code für mein HookProc :

Delphi-Quellcode:

function MyKeyboardProc(nCode: integer; wparam: WPARAM; lParam: LPARAM):Integer; stdcall;
var
PKey : Integer;
begin
  Result:=CallNextHookEx(MyKeyboardHook,nCode,wParam,lParam);
  case nCode < 0 of
    True : exit;
    False :
      begin
        PKey:=wParam;
        case PKey of
          65 : List1.Append('a');
        end;
      end;
  end;
end;

Das funktioniert soweit auch ganz gut nur wenn ich jetz "a" drücke steht das dann gleich 4 mal in meiner List1 ....

Hab ich irgentwas falsch gemacht?

Danke