Как перехватить нажатия функциональных клавиш и стрелок?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
        if Key = VK_RIGHT then
                Form1.Caption := 'Right';
        if Key = VK_F1 then
                Form1.Caption := 'F1';
end;