[[nlsgarcia]]

ale4132,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
   i : integer;
begin
   with ListBox1 do
   for i := Items.Count - 1 downto 0 do
   begin
      if Items.IndexOf(Items[i]) < i then
      Items.Delete(i);
   end;
end;

El código anterior plantea otra método para la eliminación de Items Duplicados en un control TListBox.

Espero sea útil

Nelson.