1:
2:
3:
4:

type  {TElements -> Elemente (= Dinge), die am Spielfeld vorkommen}
  TElements = (elBorder, elBlock, elFree, elBridge, elHole, elDiamond,
    elHeart, elBomb, elBox, elLocked, elKey, elHaunter, elSkull, elPot,
    elCannon, elBullet, elWalker, elPlayer);					

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

  for x := 0 to iMaxH do
    for y := 0 to iMaxV do
  begin
    if (aBoard[x, y]) = elWalker then  {Element, das bewegt werden soll}
    begin
      if aBoard[x, y+1] = elFree then  {Platz unterhalb ist frei}
      begin
       aBoard[x, y] := elFree;
       DrawBoard(x, y, iFree, imgListElements, tmpBitmap0);
       aBoard[x, y+1] := elWalker;
       DrawBoard(x, y+1, iWalker, imgListElements, tmpBitmap0);  {grafische Darstrellung}
//      break;
      end;
//     break;
    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:

var freecount: integer;
...
for x:= 0 to iMaxH do
  for y:=0 to iMaxv do 
       if (aBoard[x,y]=elWalkerUp)
       or (aBoard[x,y]=elWalkerLeft)
       or (aBoard[x,y]=elWalkerDown)
       or (aBoard[x,y]=elWalkerRight) then
          begin
             //frees zählen:
             freecount:=0;
             if (aBoard[x,y-1]=elFree)and(aBoard[x,y]<>elWalkerDown) then //Up
               freecount:=freecount+1;
             if (aBoard[x+1,y]=elFree)and(aBoard[x,y]<>elWalkerLeft) then //Right


               freecount:=freecount+1;
             if (aBoard[x,y+1]=elFree)and(aBoard[x,y]<>elWalkerUp) then //Down
               freecount:=freecount+1;
             if (aBoard[x-1,y]=elFree)and(aBoard[x,y]<>elWalkerRight) then //Left
               freecount:=freecount+1;

             if freecount=0 then 
               //umdrehen
             else if freecount=1 then
               //einen Schritt nach vorne
             else
               //für eine Richtung entscheiden, und einen Schritt gehen! (sonst dreht sich der Walker an der Kreuzung evtl mehrmals
          end;					

1:
2:
3:
4:
5:

for x:= 0 to iMaxH do
  for y:=0 to iMaxv do 
...
    if (aBoard[x,y-1]=elFree)and(aBoard[x,y]
...					

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:
34:
35:
36:

procedure TForm1.RunWalker;
var
  x, y: Integer;
begin
  {Abwärts}
  for x := 0 to iMaxH do
    for y := 0 to iMaxV do
  begin
    if (aBoard[x, y] = elWalker) and (aBoard[x, y+1] = elFree) then
    begin
      aBoard[x, y] := elFree;
      aBoard[x, y+1] := elWalker;
      break;
    end;
  end;

  DrawBoard;   {Zeichnen}
  Delay(300);  {Pause, um Bewegung darzustellen}

  {Aufwärts}
  for x := 0 to iMaxH do
    for y := 0 to iMaxV do
  begin
    if (aBoard[x, y] = elWalker) and (aBoard[x, y-1] = elFree) then
    begin
      aBoard[x, y] := elFree;
      aBoard[x, y-1] := elWalker;
      break;
    end;
  end;

  DrawBoard;   {Zeichnen}
  Delay(300);  {Pause, um Bewegung darzustellen}

  RunWalker;
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:

  for x := 0 to iMaxH do
    for y := 0 to iMaxV do
  if (aBoard[x,y]=elWalkerDown)or(aBoard[x,y]=elWalkerUp) then
  begin
    if (aBoard[x, y] = elWalkerDown) and (aBoard[x, y+1] = elFree) then
      begin
        aBoard[x, y] := elFree;
        aBoard[x, y+1] := elWalkerDown;
       // break; //nicht breaken, du willst doch ALLE Walker bewegen (also musst du alle Felder prüfen)
      end
    else if (aBoard[x, y] = elWalkerUp) and (aBoard[x, y-1] = elFree) then
      begin
        aBoard[x, y] := elFree;
        aBoard[x, y-1] := elWalkerUp;
       // break; 
      end
    else if (aBoard[x,y] = elWalkerDown) and (aBoard[x, y+1] <> elFree) then
      begin
        //umdrehen
        aBoard[x, y] := elWalkerUp;
      end
    else if (aBoard[x,y] = elWalkerUp) and (aBoard[x, y-1] <> elFree) then
      begin
        //umdrehen
        aBoard[x, y] := elWalkerDown;
      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:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure TForm1.RunWalker;
var
  x, y: Integer;
begin
 for x := 0 to iMaxH do
    for y := 0 to iMaxV do
  if (aBoard[x,y]=elWalkerDown)or(aBoard[x,y]=elWalkerUp) then
  begin
    if (aBoard[x, y] = elWalkerDown) and (aBoard[x, y+1] = elFree) then
      begin

        aBoard[x, y] := elFree;
        aBoard[x, y+1] := elWalkerDown;
       // break; //nicht breaken, du willst doch ALLE Walker bewegen (also musst du alle Felder prüfen)
      end
    else if (aBoard[x, y] = elWalkerUp) and (aBoard[x, y-1] = elFree) then
      begin
        aBoard[x, y] := elFree;
        aBoard[x, y-1] := elWalkerUp;
       // break; 
      end
    else if (aBoard[x,y] = elWalkerDown) and (aBoard[x, y+1] <> elFree) then
      begin
        //umdrehen
        aBoard[x, y] := elWalkerUp;
      end
    else if (aBoard[x,y] = elWalkerUp) and (aBoard[x, y-1] <> elFree) then
      begin
        //umdrehen
        aBoard[x, y] := elWalkerDown;
      end
  end;

  DrawBoard;   {Zeichnen}
  Delay(300);  {Pause, um Bewegung darzustellen}

  RunWalker;
end;					

1:
2:

 for x := iMaxH downto 0 do
    for y := iMaxV downto 0 do					

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

type TWalker=record
  Pos: TPoint;
  Direction: integer; //oder als Type (dirDown,dirUp,dirLeft,dirRight);
end;

var Walker: array of TWalker;					

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

for A:= 0 to High(Walker) do
  begin
    x:=Walker[A].Pos.X;
    y:=Walker[A].Pos.Y;
    //hier den alten Code (ohne Schleifen) angepasst einfügen
  end;