Simplificar Seguridad En Random
 

Código Delphi [-]
procedure TBusca_Minas.JUGARClick(Sender: TObject);
var
x: integer;
begin
randomize;

  for x:=1 to 5 do
  for y:=2 to 5 do
  begin
  ciclo[x]:=random(25);
 if (ciclo[x]=ciclo[x-1]) or (ciclo[x]=ciclo[x-2]) or (ciclo[x]=ciclo[x-3]) or     
  ciclo[x]:=random(25);


         end;

end;


j:=ciclo[1];
k:=ciclo[2];
l:=ciclo[3];
m:=ciclo[4];
n:=ciclo[5];

Ok... Quisiera saber si hay alguna manera de quitar eso de los x-1 y x-2.
Se trata que los numeros no deben repetirse, porque es para el juego de las buscaminas. El punto es que me piden que es mucho codigo (....creo que siempre me dice eso el profe) y que hay alguan manera para comparar con el vector entero...
Quisiera si me pudieran ayudar o si necesitan que ponga el resto del codigo diganme =)

Deberías explicar mejor que es lo que quieres hacer. Cual es el problema y que solución planteaste.