seleccionar una opción de un popup por código

[mangels]

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!