Одинаковые элементы

[kodov]

Здравствуйте!
Помогите, пожалуйста, решить проблему.
У меня в программе есть ListBox, Edit и button.
В ListBox есть много элементов. При вводе в Edit текста (имя эл-та) и
нажатии на кнопке, элемент с таким именем появляется в Листе.
Как сделать так, чтобы, если элемент с точно таким же именем уже есть в Листе,
чтобы выскочило сообщение?
Заранее спасибо.

[_Dmitry]

var
  i: integer;
  k: boolean;
begin
  k:=false;
  for i:=0 to ListBox1.Count-1 do
    if ListBox1.Items.Strings[i] = Edit1.Text then
      begin
        k:=true; break;
      end;
  if k then ShowMessage('Элемент существует')
       else ListBox1.Items.Add(Edit1.Text);

[Arigato]

Проще сделать так:

  if ListBox1.Items.IndexOf (Edit1.Text) < 0 then
    ListBox1.Items.Add (Edit1.Text);

[kodov]

Всем спасибо.