[[coso]]

hola suponiendo que cada numero este en una linea distinta, deberas usar un doble bucle :

Código Delphi [-]

for i := 0 to sl.count - 1 do
begin
   s := sl[i];
   for j := i to sl.count - 1 do 
      if sl[i] = sl[j] then sl[j].Delete;
end;

mas o menos