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

[mangels]

Hola, estoy desplegando un popup menú por código de esta forma:

Código Delphi [-]
procedure desplegaMenu(boton: TButton);
var
  p: TPoint;
begin
  p := boton.ClientToScreen(Point(0, boton.Height));
  boton.DropdownMenu.Popup(p.X, p.Y);
end;

Lo que me gustaría es que además de desplegar el menú quedará seleccionado el primer ítem para poder hacer Intro directamente, ahora no hay seleccionado ninguno y tengo que moverme con las teclas de cursor o con el mouse para activar el que me interesa.

Lo único que se me ha ocurrido ha sido incluir esta línea (simular que pulso la tecla de cursor abajo), pero no me ha funcionado:

Código Delphi [-]
PostMessage(TAdvPopupMenu(boton.DropdownMenu).Handle, WM_KEYDOWN, VK_DOWN, 0);

Si alguien me puede ayudar... Gracias