Evitar que random se repita

[danielmj]

Hola, esta consulta bien podría ir en el apartado general de delphi, pero bueno en este caso se trata de android. Sé que el problema puede ser una tonteria, pero a mi no me sale...

La cosa es que quiero que se genere un número aleatorio del 1 al 8 ambos inclusive para cada una de las etiquetas (label), yo tengo esto:

Código Delphi [-]
//randomize;
  label4.Text:= IntToStr(random(8)+1);
  label5.Text:= IntToStr(random(8)+1);
  label6.Text:= IntToStr(random(8)+1);
  label7.Text:= IntToStr(random(8)+1);
  label8.Text:= IntToStr(random(8)+1);
  label9.Text:= IntToStr(random(8)+1);
  label10.Text:= IntToStr(random(8)+1);
  label11.Text:= IntToStr(random(8)+1);

He probado también permitiendo el "randomize" del inicio y nada, el resultado es este o similar al de la captura.



Como veis hay números que se repiten entonces, ¿de que forma puedo hacer que no se repitan si tener que hacer uso de un casi interminable "if"?
Gracias de antemano.