[[seoane]]

Si no encuentras una solucion mejor puedes eliminar los elementos repetidos:

Código Delphi [-]
var
  i: integer;
begin
  i:= 0;
  with Listbox1.Items do
    while Count > i do
    begin
      if IndexOf(strings[i])<>i then
        Delete(i)
      else
        inc(i);
    end;
end;