Проблема с SetFocus

[kta87]

begin
  if not (Key in ['0'..'9',#13,#8,#40]) then Key := #0;
  if (key = #13) or (key = #40) then Form1.Edit4.SetFocus;
end;

но работает только при нажатии клавиши Enter! При нажатии Down (кнопочка "Вниз" на клаве) не работает! Помогите разобраться что не так я делаю, и как правильно?

[SERG1980]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key=VK_RETURN)or(VK_DOWN)then
end;