Добавление пунктов в ListBox

[AdvanceQ]

Здравствуйте!

Имеется ListBox и Button. Вопрос как реализовать добавление пунктов по нажатию кнопки, но в пунктах в конце названия содержится число, необходимо чтобы добавился новый пункт с числом в конце на единицу больше предыдущего. К примеру:
имеются:
пункт1
пункт2

к ним добавлется:

пункт3

и т.п

[uberchel]

Вот пример:

[Marsel737]

Думаю по аналогии должно получиться

procedure TForm1.Button1Click(Sender: TObject);

var
  MyTreeNode1, MyTreeNode2: TTreeNode;
begin
  with TreeView1.Items do
  begin
    Clear; { remove any existing nodes }
    MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
    { Add a child node to the node just added }
    AddChild(MyTreeNode1,'ChildNode1');
    {Add another root node}
    MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
    {Give MyTreeNode2 to a child }
    AddChild(MyTreeNode2,'ChildNode2');
    {Change MyTreeNode2 to ChildNode2 }
    { and add a child node to it}
    MyTreeNode2 := TreeView1.Items[3];
    AddChild(MyTreeNode2,'ChildNode2a');
    {Add another child to ChildNode2, after ChildNode2a }
    Add(MyTreeNode2,'ChildNode2b');
    {add another root node}
    Add(MyTreeNode1, 'RootTreeNode3');
  end;
end;

[Alenka_S]

Это очень просто реализовать:

// кнопка для добавления одного нового пункта
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i :=ListBox1.Items.Count+1;
ListBox1.Items.Add('пункт '+IntToStr(i));
end;
end.