Delphi - como comparar cadenas de txt en listbox

Hola a todos nescesito que me expliquen como puede hacer para comparar las cadenas de texto que voy agregando en un listbox y que si ya e agragado antes no me permita escribirlas.
Lo explico mejor:
Mediante un edit voy añadiendo cadenas de texto a un listbox, pero cuando yo vuelva a añadir una misma cadena igual a la añadida antes, no quiero que la añada o sea que solo puede añadir una sola ves cada cadena de texto.
Aver si me pueden ayudar, se los agradeceria mucho.
Saludos.
Manolito.

Checa la función IndexOf del listBox

ListBox1.Items.IndexOf('Cadena a buscar');

La función te regresa -1 si la cadena que buscas no existe, por lo tanto hay que agregarla
checa la ayuda de delphi ahi te dicen más