sacar numeros al azar

[alextmb]

hola amigo yo estoy en las mismas mira a ver si entrelos dos lo sacamos o alguien nos auxilia, tengo que hacer que en 40 images, que tengo en un arreglo llamado Carta asignarles un numero al azar del uno al 20 pero solo se pueden repetir una vez mira lo que he hecho

Código Delphi [-]
for a:=1 to 20 do
begin
   Repeat
      fin:=20
      Randomize;
      num:=random(20)+1;
      z:=true;
      for c:=1 to fin do
      begin
        if num=Carta[c].Tag then
        begin
          z:=false;
          fin:=0;
        end
      end;
    Until(z=true);
    Carta[a].Tag:=num;
end;

avisame que te parece