Bildschups Puzzle wie die Bilder mischen?

[Blup]

Stichwort: Zufallszahlen, Lottozahlen

Hier auch was von mir zu dem Thema:
http://www.delphipraxis.net/internal...t.php?t=151677

Delphi-Quellcode:

var
  Zufallsreihenfolge: TIntegerDynArray;
  i: integer;
  img: TImage;
begin
  Zufallsreihenfolge := Lottozahlen(1, x, x);

  for i := 1 to x do
  begin
    img := FindComponent(Form1, 'Image' + IntToStr(i));
    if Assigned(img) then
    begin
      img.Picture.LoadFromFile('Bild' + IntToStr(Zufallsreihenfolge[i - 1]));
      img.Tag := i;
    end;
  end;
end;