Problem z kasowaniem

Siema!
Jak w listboksie wywalić niepotrzebne line'y które się powtarzają?

np. mam takie stringi w listboksie:

1
2
1
3
4
5
5

a zamienia mi na takie:

1
2
3
4
5

Chyba nie muszę mówić, że program nie wie, jakie line'y ma wywalić (wywala wszystkie które się powtarzają, ale zostawia po jednym z każdego który został zamieniony)...

i jeszcze jedno:
ZAMIENIA [code]LINE[/code]'Y (linie tekstu), NIE [code]STRING[/code]I!

Wielkie dzięks za każde posty z

[ODPOWIEDZIĄ(!)]

.

Zrób TStringList, ustaw żeby ignorował powtórki przekopiuj do niego, a potem z powrotem do ListBox.Items.

Zrób pętlę for i warunek sprawdzający czy coś się powtarza, jeżeli tak to usuwa powtarzający się element !!.