程序代码：

var
i:Integer;
procedure TForm1.btn1Click(Sender: TObject);
begin

 inc(i);

 cbb1.Items.Add('添加第“ '+IntToStr(i)+' ”Lines');

 cbb1.ItemIndex:=cbb1.Items.Count-1;
end;

procedure TForm1.cbb1Click(Sender: TObject);
begin

 showMessage(cbb1.Items[cbb1.ItemIndex]);
end;