Delphi F1 tuşuna basılınca mesaj

Forma gelip F1 tuşuna basıldığında ‘merhaba’ yazdıran kod=

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

  Shift: TShiftState);

begin

if key=VK_F1 then ShowMessage('merhaba');

end;

end.