comboboxy + setfocus

Witam mam kilka comboboxów.
w zdarzeniach OnKeyPress ustawiona ma obsluge uderznia ENTER
dla combobox1 wartosci(1..100)

if key=#13        // ENTER
      then begin
      key:=#0;        //zeruj
       combobox2.SetFocus;
      end;
po wcisnieciu enter przeskakuje mi na combo2 (robi go aktywnego i ok)
mam problem:
-gdy wybiore myszka wartosc - wtedy ładnie combobox1 zwija mi sie
- gdy wpisze z klawiaturki wartosc po wcisnieciu enter przechodzi mi do comobo2 lecz lista comobobox1 pozostaje rozwinieta - jak zaprogramowac zwiniecie listy.

pozdrawiam

Albo ustaw wlasciowsc AutoDropDown na false, albo sam decyduj czy w danym momencie ma byc rozwinięte czy nie za pomocą właściwości combobox1.DroppedDown:= true / false

dzikuje - o to mi chodzilo
pozdr