1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

 
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;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure Mischen;
var
  arr : Array [1..20] of Integer;
  cnt1 : Integer;
  cnt2 : Integer;
  Wert : Integer;
  Naechster : Boolean;
begin
  Randomize;
  cnt1 := 1;
  repeat
    Wert := Random(640); // Die Zahl gibt den maximalen Wertebereich an
    if cnt1 > 1 then begin
      Naechster := True;
      for cnt2 := 1 to cnt1 do begin
        if arr[cnt2] = Wert then Naechster := False;
      end;
    end;
    if Naechster then begin
      arr[cnt1] := Wert;
      inc(cnt1);
    end;
  until cnt1 > 20;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

Procedure MixIt(var A:Array of Integer);
const
  MixCount = 10;
var
  S1, S2:Integer;
  A1, A2:Array of Integer;
  X, Y:Integer;
begin
  Randomize;

  SetLength(A1, Length(A));
  SetLength(A2, Length(A));

  For X := 1 To MixCount do
  Begin
    For Y := 0 To High(A) Do
    Begin
      If Random(2) = 0 Then
      Begin
        A1[S1] := A[Y];
        Inc(S1);
      end
      else
      Begin
        A1[S2] := A[Y];
        Inc(S2);
      end;
    end;

    Move(@A1[0], @A[0], SizeOf(Integer) * S1);
    Move(@A2[0], @A[S1], SizeOf(Integer) * S2);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure 


Spiel.FormCreate(Sender: TObject);
const iconZahl = 30;
var x,y  : integer;
    i    : integer;
    IcoName: string;

   procedure NextPos(var x,y:integer);
   begin
     if x = 320  then begin
        x:=0; y:= y+ 50; end;
     x:= x + 50;
   end;

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);
        end;
 end;					

1:
2:
3:
4:
5:
6:
7:

Type
  PosRec = record
    x : Integer;
    y : Integer;
  end;
var
  arr : Array [1..20] of PosRec;					

1:
2:
3:
4:
5:
6:
7:

  arr[1].x := 50;
  arr[1].y := 20;
  arr[2].x := 10;
  arr[2].y := 70;
.
.
.