Hola.
Yo uso este código en el FormKeyDown y no tengo ningún problema:
Código Delphi
[-]
procedure Formulario.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case Key of
VK_UP: begin
SelectNext(ActiveControl, False, True);
Key := 0;
end;
VK_DOWN: begin
SelectNext(ActiveControl, True, True);
Key := 0;
end;
end;
Saludos