Generar números sin repetidos ni consecutivos

[bulc]

Para proceder con un Delete es mejor usar el DownTo ya que puede afectar a las posiciones de los índices. Algo que aprendí dándome de bruces con algún caso. Por lo demás muy sencillo y bien.
Gracias y saludos.

[bulc]

Funciona correctamente, pero a veces deja Items en blanco. Por eso he añadido ésto al final.
for I := 0 to LBoxTArget.Count - 1 do
if LBoxTarget.Items[i] ='' then
LBoxTarget.Items.Delete(I) ;

Saludos;
bulc

[bulc]

No hace al caso. Bórralo.

[Casimiro Noteví]

A mí me funciona bien, aunque no he comprobado si son continuos o no.