[S] Shift Taste abfangen

[terrorzwerg]

Erstmal schön wieder hier zu sein, so meine Frage: Ich möchte mit einer OnKeyDown Prozedur die Shift Taste abfangen mein Code sieht folgendermaßen aus:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Shift=[ssshift]) then begin
ShiftTaste:=True;
ShowMessage('funzt');
end;
end;

ein Syntaxfehler liegt nicht vor aber es paasiert einfach nichts, wo liegt der fehler?