Курсор в DBComboBox

[lun-wadim]

Когда я вожу данные DBEdit, потом нажимаю кнопку Enter, курсор из DBEdit переходит к DBComboBox (в его свойстве Items добавлены "муж" и "жен") и DBComboBox сразу раскрывает список: "муж" и "жен". При этом даже не надо наводит курсор мышки на "стрелочки вниз" DBComboBoxа. Как писать код?

[paves]

procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN  then
    begin
      DBComboBox1.SetFocus;
      DBComboBox1.DroppedDown:=True;
    end;
end;

[lun-wadim]

Сообщение от paves

procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN  then
    begin
      DBComboBox1.SetFocus;
      DBComboBox1.DroppedDown:=True;
    end;
end;

Спасибо большое.

[superedward]

При таком желании автоматизации можно сразу выделить нужный пол, на основании парсинга отчества (если оно есть, конечно)