请教listbox1组件问题？保证给分

Question

 第一个问题，listbox1组件中有五项A,B,C,D,E
怎样检测listbox1组件中有几项内容,检测结果在edit1.text中?
点击button1按纽，使edit2内容等于listbox1组件中的A？
点击button2按纽，使edit3内容等于listbox1组件中的B？
点击button3按纽，使edit4内容等于listbox1组件中的C？
点击button4按纽，使edit5内容等于listbox1组件中的D？
点击button5按纽，使edit6内容等于listbox1组件中的E？第二个问题怎能橛样对组件中的内容用for语句循环把结果显示在edit7中？举例说明。

Answer 1

使用listbox的listbox1.ItemIndex就行了

Answer 2

//第一个问题，listbox1组件中有五项A,B,C,D,E
//怎样检测listbox1组件中有几项内容,检测结果在edit1.text中?
Edit1.text:= IntToStr(listbox1.Items.Count);如果五项A,B,C,D,E是按顺序排列地：
A
B
C
D
E
//点击button1按纽，使edit2内容等于listbox1组件中的A？
 Edit2.text:= IntToStr(listbox1.Items[0]);
//点击button2按纽，使edit3内容等于listbox1组件中的B？
Edit3.text:= IntToStr(listbox1.Items[1]);
//点击button3按纽，使edit4内容等于listbox1组件中的C？
Edit4.text:= IntToStr(listbox1.Items[2]);
//点击button4按纽，使edit5内容等于listbox1组件中的D？
Edit5.text:= IntToStr(listbox1.Items[3]);
//点击button5按纽，使edit6内容等于listbox1组件中的E？
Edit6.text:= IntToStr(listbox1.Items[4]);
//第二个问题怎能橛样对组件中的内容用for语句循环把结果显示在edit7中？
var
  i: integer;
  str: string;
begin
  str:= '';
  for i:= 1 to listbox1.Items.Count - 1 do
  begin
    if str <> '' then
    str:= str+ ',';
    str:= str+IntToStr(Listbox1.Item[i]);
  end;
  Edit7.Text:= str;
end;

Answer 3

edit1.text=inttostr(listbox1.count)
edit2.text=listbox1.items[1]
edit3.text=listbox1.items[2]