delphi7 onkeydown

delphi7中 oinkeydown事件需要怎么触发
procedure (Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
   begin
   ComboBox1.Items.Add(ComboBox1.Text);
   //将 ComboBox1中的文本添加到 ComboBox1列表中
   Listbox1.Items.Add(ComboBox1.Text);
   Label1.Caption:='你输入了：'+ComboBox1.Text;
   //清空文本
   ComboBox1.Text:=''
   end;
end;
为什么这样事件触发不了 请各位高手帮忙 谢啦