Fórum como abrir a lista do DBLookpBox pressionando ENTER #216983

procedure TFormVenda.DBLookupComboBox1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if Key=Vk_Return Then
  Key:=Vk_Down;
end;

Var
ParaTras:Boolean=False;
Conteudo:String;
Inicio:String;
Fim:Inicio:

Function VerificarIndiceAtualDoDbLook:Boolean;
begin
if Conteudo=Fim Then
  Result:=True;
If Conteudo=Inicio Then
  Result:=False;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Table1.Open; //Se Ainda Não Estiver Aberta
Table2.Open; ////Se Ainda Não Estiver Aberta
Table2.Last;
Fim:=Table2NomeCampoDaTabela2; Que Voce Quer Que Apareça No 
"DbLookComboBox"
Table2.First;
Inicio:=Table2NomeCampoDatabela2; //Que Voce Quer Que Apareça No 
"DbLookComboBox"
Codigo:=DBLookupComboBox1.Text;
ParaTras:=VerificarIndiceAtualDoDbLook;
end;

procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=Vk_Return
  if Not ParaTras Then
    Key:=Vk_Down
  else
    Key:=Vk_Up;
end;

procedure TForm1.DBLookupComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Codigo:=DBLookupComboBox1.Text;
ParaTras:=VerificarIndiceAtualDoDbLook;
end;