O esta otra algo parecida?
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Open;
DblookUpComboBox1.DropDown;
DblookUpComboBox1.SetFocus;
Keybd_Event(Vk_Down,0,0,0);
Keybd_Event(Vk_Down,0,0,0);
DblookUpComboBox1.CloseUp(true);
end;
Un Saludo.