He puesto la instrucción de roman y me ha funcionado perfectamente, pero sólo cuando la he puesto en el evento OnPopup del menú. He probado en varios sitios (después de hacer el .Popup(p.X, p.Y), después de llamar a la función que desplega el menú... y nada), suerte que al final se me ha ocurrido probar en el evento...
Código Delphi
[-]
procedure TFMain.PopOpcionesPopup(Sender: TObject);
begin
PostMessage(menus.PopupList.Window, WM_KEYDOWN, VK_DOWN, 0);
end;
Muchas gracias por la ayuda!