[angvelem]

Данный код работает, только пиканье остаётся:

Код:

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_TAB) and ComboBox1.DroppedDown then
  begin
    Key := 0;
    ComboBox1.DroppedDown := False;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;