DropDown con TDBLookupComboBox
 

Tengo el siguiente problema, lo que pasa es que cuando activo la propiedad "DropDown" de un "TDBLookupComboBox", me abre la "PERSIANA", en donde me muestra el contenido de la Tabla en que apunta dicho componente, es Correcto hasta aqui, pero, si yo me desplazo entre los elementos y elijo algunos de ellos, al presionar ENTER sobre el elemento seleccionado, me selecciona el PRIMER elemento, Que estará Pasando????

Si no activo esta propiedad y me desplazo entre los elementos sin que este abierta la PERSIANA no me selecciona el primer elemento y si lo elijo con el RATON tampoco, solo me pasa cuando mando a llamar la propiedad DropDown.

Lo llamo de la siguiente forma:

Código Delphi [-]
TDBLookupComboBox(Control).DropDown;

Ahora....
 

Ya resolví este problema, ¿Como? Quien sabe pero lo resolví, no es cierto :), tengo una función que me proporcionó el Sr. Neftali que me cacha el TAB:

Código Delphi [-]
procedure TfPromocion.CMDialogKey(var Message: TCMDialogKey);
var
_key: Word;
begin
_key :=13;
if GetKeyState(VK_MENU) >= 0 then
with Message do
case CharCode of
VK_TAB:Abort
{if Not bdSucursal.Focused then Self.edClienteKeyDown(Self, _key, [])}
end;
inherited;

Como se muestra, ignore la condición y sólo le puse "Abort", pero ahora al Abrirme la "PERSIANA" no me puedo desplazar entre los elementos que hay en ella, ni con el raton ni con el teclado.
Agradezco cualquier comentario.