Delphi Enter tuşu

Enter tuşuna basılıp basılmadığını gösteren kod=

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if key = VK_RETURN then ShowMessage('enter tuşuna basıldı');

end;

end.