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:
por
Código Delphi
[-]Randon(_posiciones_que_quedan_)