problema con listbox

[ale4132]

Tengo un Problema en delphi 7 con un listbox, la situacion es la siguiente:
Por medio de un boton genero de manera aleatoria una cierta cantidad de items en un listbox, algunos de los cuales a veces se repiten mas de una vez, mi pregunta es:
¿como podría hacer por medio de otro boton para que los elementos o items duplicados del listbox se eliminen?

espero respuesta, muchas gracias!!