如何 double click change ComboBox value

Question

我的寫法
var i:integer
  if ComboBox1.itemindex >= ComboBox1.Items.Count - 1 then
     i := 0
  else
     i := ComboBox1.Itemindex + 1;
  ComboBox1.text := ComboBox1.Items[i];
這樣第一次可以﹐但是ComboBox1.itemindex屬性不會改變﹐第二次click error 
 高手指點﹐50分相送

Answer 1

試過了,完全正常....
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  if ComboBox1.itemindex >= ComboBox1.Items.Count - 1 then
     i := 0
  else
     i := ComboBox1.Itemindex + 1;
  ComboBox1.text := ComboBox1.Items[i];
  end;  //win98+d5 通過

Answer 2

procedure TForm1.ComboBox1DblClick(Sender: TObject);
var
    index: integer;
begin
    index := combobox1.Items.IndexOf(combobox1.Text);
    if  index < combobox1.Items.Count-1 then
        combobox1.ItemIndex := index+1
    else
        combobox1.ItemIndex := 0;end;

Answer 3

procedure TForm1.ComboBox1DblClick(Sender: TObject);
var
    i: integer;
begin
    i := combobox1.Items.IndexOf(combobox1.Text);
    if  i < combobox1.Items.Count-1 then
        combobox1.ItemIndex := i+1
    else
        combobox1.ItemIndex := 0;end;