Generar números sin repetidos ni consecutivos

[bulc]

Hola, tengo un código para generar números formados por dos dígitos, (añado cero en los menore de nueve). Funciona bien con números pequeños pero falla en números más altos.
Los números generados deben ser no consecutivos y no estar repetidos. A ver si podéis echarme una mano. Saludos

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
Var
   I : Integer;      S  : String;
begin
S:='';
Randomize; 
Repeat
    I := Random(24) + 1 ;
    if I <=9 then T:= Format('%.*d', [2, I] ) else
                      T:= IntToStr(I);
     if POS( T,  S ) = 0  then        // Esta línea hace que se atasque el programa. Si se anula, el resto funciona.
      INSERT( T, S, Length(S) + 1) ;
Until Length(S) = 48   ;
Edit1.Text := S ;
end;

[Casimiro Notevi]

O sea, parece que quieres generar 48 números (sin repetir) del 1 al 99, ¿es eso?

Edito: No, no es eso, pues tienes puesto random(24) y en el bucle length 48

Explica qué quieres, porque no se entiende.

[bulc]

Es que los números son alfanuméricos o dígitos, osea Strings. Y deben ocupar dos caracteres cada uno. Por tanto de 1 a 9 hay que ponerles un cero de prefijo.
Y como son 24 números o pares, ocupan 48 caracteres. Deben estar entre el 1 y el 24.
De todos modos he conseguido solucionarlo usando un TStringList y su propiedad IndexOf .
El objeto final es crear un conjunto de 24 números no consecuivos y sin repetir ninguno pero del 1 al 24 sólamente.
Mira que me ha costado, ¿eh?. Tengo un string de 24 números al final. Ahora tengo que usarlos de dos en dos para convertirlos en Integer.
Bueno, saludos y gracias.

[Casimiro Notevi]

O sea, del 1 al 24, desordenados.

[bulc]

Intento hacerlo con un Array pero no lo consigo. Usando un TStringList sí que lo hago uso IndexOf para comprobar que el número X no está.

[Neftali [Germán.Estévez]]

Sólo como optimización (un poco rebuscada) si utilizas un TStringList, puedes conseguir los 24 números sólo en 24 pasadas (no más), si vas eliminando del TStringList los elementos ya generados y modificando el:

Código Delphi [-]
Random(24)

por

Código Delphi [-]
Randon(_posiciones_que_quedan_)