Вопрос по ListBox и Edit

[SARGE]

For  i:=0    to     List.Count   do
if  List.Items[i] <> Edit.Text then
List.Items.Add(Edit.Text);
end;

Как сделать чтобы

List.Items.Add(Edit.Text);

добавляла 1 раз а не каждый раз при не соответствии

[Пепел Феникса]

For i:=0 to List.Count-1 do
if  List.Items[i] <> Edit.Text then
 begin
  List.Items.Add(Edit.Text);
  break;
 end;
end;

[SARGE]

Пепел Феникса Спасиб