一个简单的COMBOBOX的问题！急！

Question

我用COMBOBOX，在ITEM里面有几个下拉条，我想写一段简单的代码当我选择下拉中ITEM中的一个时，自动给一个STRING赋值，并把它传递到别的控件里面，如EDIT中
procedure Tfltbianma.ComboBox1Change(Sender: TObject);
begin
  sltbm:=copy(combobox1.Text,1,1);//SLTBM是事先声明了的STRING
  sltms:=copy(combobox1.Text,3,8);
  fltbianma.Edit2.Text:=sltbm;
end; 我用了ONCHANGE，ONSELECT，ONEXIT好象都没成功我不知道是什么原因啊！

Answer 1

ONCLICK 我试了好象没效果
ONSELECTED怎么写

Answer 2

就是OnClick里面。不好意思，刚才写错了。没有ONselected属性！ : )

Answer 3

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
showmessage(combobox1.items[form1.ComboBox1.ItemIndex]);
end;这样写，，
剩下的好搞定：）

Answer 4

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
edit1.Text:= ComboBox1.Text ;
end;

Answer 5

谢谢楼上几位！是在ONCLICK里面我已经试出来了，解分！