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

procedure Tf2048.links1Click(Sender: TObject);
begin
  repeat
    richtung:=random(4);
    auswertung(sender);
  until ende or geschafft;
end;					

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

                    feld[j,i]:=2*feld[j,i];
//dann eben
                    inc(feld[j,i]);

damit wäre auch:
 case feld[i+1,j+1] of
          2 : ziel.brush.color:=$00ffd0d0;
          4 : ziel.brush.color:=$00ffa0a0;
..

       2048 : ziel.brush.color:=$00a0ffff; 
nur noch
 case feld[i+1,j+1] of
          1 : ziel.brush.color:=$00ffd0d0;
          2 : ziel.brush.color:=$00ffa0a0;
          3 : ziel.brush.color:=$00ff8080;
..
         11 : ziel.brush.color:=$00a0ffff; 
Oder
ziel.brush.color := Colorliste[feld[i+1,j+1]];
// Man könnte auch die kleinen Ausgabequadrate vorher erstellen, da jeder wert auch seine spezifische Farbe hat.
AusgabeBmp := AusgabeBmpliste[feld[i+1,j+1]];					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure Tf2048.Button2Click(Sender: TObject);
var arichtung:array[0..3,0..3,0..3,0..3,0..3] of integer;
...
//Maximum kann man währenddessen prüfen, schon wieder 1 ns gespart
     maximum:=0;
     for i:=0 to 3 do
       for j:=0 to 3 do
         for m:=0 to 3 do
           for n:=0 to 3 do
             for o:=0 to 3 do
             begin
               arichtung[i,j,m,n,o]:=zaehlen(i,j,m,n,o);
               if arichtung[i,j,m,n,o]>maximum then
               begin
                 maximum:=arichtung[i,j,m,n,o];
                 neuerichtung:=i;
               end;
             end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//proc Auswertung. Ausgaben ans Ende gesetzt
    label2.caption:=inttostr(punkte);
    If testabbruch then
    begin
      paintbox1paint(sender);application.processmessages;
      sleep(10);
    end;

end;...

// in Button2Click
     if schritte AND 31 = 0 then
     begin
      paintbox1paint(sender);application.processmessages;
      sleep(10);
     end;