PopupMenu dentro de un DBEdit

[[gluglu]]

Hola Amigos !

Al llegar a un DBEdit activo mediante programación un PopupMenu con un elemento por defecto, que cuando es mostrado en pantalla aparece en negrita.

Quiero que una vez que se cierre el PopupMenu, salga del foco DBEdit (en mi caso concreto cerrar el Form que había creado previamente). Funciona perfectamente si en el PopupMenu el usuario se mueve con el cursor o ratón y elige una opción diferente de la que era por defecto.

Mi problema es cuando el usuario simplemente pulsa Intro para aceptar la opción por defecto mostrada. Al parecer, en este caso, NO se activa el evento OnClick del PopUpMenu.

El otro pequeño efecto 'lateral' que tengo es que aunque la opción por defecto se resalte en negrita, realmente el "cursor" del PopupMenu no está situado en dicha opción, por lo que al pulsar por primera vez el cursor arriba/abajo, no comienzo en dicha opción.

Código Delphi [-]
procedure TBookingRoomingList1.DBEdit10Enter(Sender: TObject);
var
  p: Tpoint;
begin
  p := DBEdit10.ClientToScreen(p);
  If DataModule1.IBQuery9STATUS.Value =  1 then St_UnConfirmed.Default := True;
  If DataModule1.IBQuery9STATUS.Value =  2 then St_Confirmed.Default   := True;
  If DataModule1.IBQuery9STATUS.Value = 11 then St_Tentative.Default   := True;
  If DataModule1.IBQuery9STATUS.Value = 12 then St_WaitList.Default    := True;
  If DataModule1.IBQuery9STATUS.Value = 13 then St_NoShow.Default      := True;
  If DataModule1.IBQuery9STATUS.Value = 14 then St_Cancelled.Default   := True;
  PopUpMenu1.popup(p.x+70,p.y-200);
end;
 
procedure TBookingRoomingList1.StatusClick(Sender: TObject);
begin
  DataModule1.IBQuery9.Edit;
  If Sender = St_Tentative   then DataModule1.IBQuery9STATUS.Value := 11;
  If Sender = St_UnConfirmed then DataModule1.IBQuery9STATUS.Value := 1;
  If Sender = St_Confirmed   then DataModule1.IBQuery9STATUS.Value := 2;
  If Sender = St_WaitList    then DataModule1.IBQuery9STATUS.Value := 12;
  If Sender = St_NoShow      then DataModule1.IBQuery9STATUS.Value := 13;
  If Sender = St_Cancelled   then DataModule1.IBQuery9STATUS.Value := 14;
  BookingRoomingList1.Close;
end;

Un saludo.