Mischen Funktion

[testzugang]

HI,

ich bin gerade dabei ein memory zu schreiben und eigentlich läuft es auch perfekt, bis auf das kleine Problem. Ich lade meine Bilder so:

Delphi-Quellcode:

begin
   x:=0; y:=10;
   For i:=1 to IconZahl DO begin
     NextPos(x,y);
     IcoName:= 'Icon'+IntToStr(i);
     TKarte.Create(Self,x,y,IcoName);
   end;

For i:=IconZahl downto 1 DO begin
     NextPos(x,y);
     IcoName:= 'Icon'+IntToStr(i);
     TKarte.Create(Self,x,y,IcoName);
     Brueckseite.Click;
   end;

Also einmal meine 30 Icons rauf und einmal wieder runter. Ist ja ganz lustig, aber jetzt möchte ich eine "mischen" Funktion einbauen. Hat jmd. eine Hilfestellung evtl. mit Code für mich?

mfg