Przeskakiwanie ComboBox bez Beep

Mam ComboBox i chce, zeby po wcisnieciu Enter focus przeskoczyl na drugi Combo. Wyprodukowalem to:

procedure TForm1.PrzedmiotKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
  Perform(WM_NEXTDLGCTL, 0, 0);
end;

Ale po wcisnieciu enter... Beep. Jak mozna go wywalic??

Musisz dać key:=#0. A w onkeydown i onkeyup: key:=0;

Thx, Dziala bez

Key:=#0 

w OnKeyUp i Down..