Проверка списка на предмет аналогичных строк

[Vladya]

Здравствуйте, у меня такой вопрос, как можно проверить, при добавлении пунктов в лист бокс, нет ли в списке такого пункта, если есть то выводить сообщение или еще что, это уже не важно, тоесть мне нужно что бы программа не давала добавить второй такой же пункт.
Нашел в инете код только не могу его прикрутить себе, в delphi у меня нет таких переменных (Contains), или даже если есть то не знаю как они там называются

private void button1_Click(object sender, EventArgs e)
        {
            if (!listBox1.Items.Contains(textBox1.Text))
                listBox1.Items.Add(textBox1.Text);
            else
                //такой уже есть
         }

[DomiNick]

Может как-то так?: Listbox и повтор строк в нем

[Vladya]

Что то я ничего не понял, извините, но у меня немножко другая ситуация, у меня есть список, заполненный, и мне надо что бы при добавлении нового значение в лист бокс (добавление из второй формы), сразу проверялось если ли в списке такая запись и если есть то не разрешало добавлять, а через IndexOf я честно говоря не представляю как это сделать.
Если можно, обьясните пожалуйста.

[DomiNick]

procedure TForm1.Button1Click(Sender: TObject);
begin
If ListBox1.Items.IndexOf(Edit1.Text)=-1 Then
      ListBox1.Items.Add(Edit1.Text)
Else
      ShowMessage('Òàêîå çíà÷åíèå óæå åñòü â ñïèñêå!');
end;