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

Code:

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;

Code:

procedure TfmAbProps.edNameKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (Key = vk_down) and

   not (ssAlt in Shift)

     {// здесь обработка для "выпадающих" окошек типа TRxDBCalcEdit} then

begin

   Key := 0;

   SelectNext(Sender as TWinControl, true, true);

end

else if Key = vk_up then

begin

   Key := 0;

   SelectNext(Sender as TWinControl, false, true);

end;

end;