tastenabfrage mittlere maustaste

[made in Germany]

HAI!

folgendes Problem:

ich möchte etwas ausführen, wenn die mittlere Maustaste gedrückt wurde

mein Ansatz:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_F1   then showmessage('F1 wurde gedrückt');
  if key = VK_MBUTTON   then showmessage('mittlere Maustaste wurde gedrückt');
end;

Das mit der F1-Taste hab ich in einem anderen thread gefunden, das funktioniert.
Aber warum lässt sich das nicht auf die Maustaste übertragen?