listbox有关问题 菜鸟

listbox问题 初学者
当选择   listbox1   中的项目发生变化时

edit1   中就显示   listbox1中     相应的项

怎么些程序啊

[解决办法]
if Listbox.ItemIndex> =0 then
edit1.text:=Listbox.items.Strings[Listbox.ItemIndex]
else edit1.text:= ' ';