combobox的鼠标滚轴响应事件,该怎么解决

combobox的鼠标滚轴响应事件
各位高手新年好：
  如何在delphi中实现combobox的鼠标滚轴响应事件？最好有代码，多谢。

[解决办法]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text := Combobox1.Text;
end;