Problem mit WndProc

[mischer]

Morgen,

ich hab ein Problem mit der WndProc. Ich hab die überschrieben wie folgt:

Code:

type
  ...
  procedure WndProc(var msg : TMessage); override;
  ...

procedure TForm1.WndProc(var msg : TMessage);
begin
  if (msg.Msg = WM_KeyUP) or (msg.Msg = WM_KeyDown) then showmessage('Key');
//  inherited WndProc(msg);
end; {end function}

  ...

Zur Erklärung: Ich fange F-Tasten Befehle in einem Hook ab, sende diese per

Code:

sendmessage(HWND_BROADCAST, ncode, wparam, lparam);

nach draußen und will die dann mit obenstehender Procedure auffangen.
Jetzt bekomme ich beim Starten des Programms die Meldung 'Win32 Fehler. Code 1411. Klasse nicht vorhanden.'

Was soll das?

Danke für Eure Hilfe

MfG mischer