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:
39:

  procedure versuch(x,y:Integer);
   var neuesx, neuesy, z: Integer;
       Nachbarpunkte: Array[1..4] of TPunkt;

  begin
     z:=1;
     Nachbarpunkte[1].xKo:=x;
     Nachbarpunkte[1].yKo:=y-1;
     Nachbarpunkte[2].xKo:=x-1;
     Nachbarpunkte[2].yKo:=y;
     Nachbarpunkte[3].xKo:=x;
     Nachbarpunkte[3].yKo:=y+1;
     Nachbarpunkte[4].xKo:=x+1;
     Nachbarpunkte[4].yKo:=y;
     repeat
      neuesx:=Nachbarpunkte[z].xKo;
      neuesy:=Nachbarpunkte[z].yKo;
      if (StringGrid1.cells[neuesx,neuesy] <> 'Schildk.') and
         (StringGrid1.cells[neuesx,neuesy] <> 'Wand') and
         (StringGrid1.cells[neuesx,neuesy] <> 'X') then
      begin
       If StringGrid1.cells[neuesx,neuesy] = 'Apfel' then
         begin
           ShowMessage('Lösung gefunden');
           anzahl := anzahl + 1;
           edit1.text := inttostr(anzahl);
         end
       else  {freier Weg}
         begin
           StringGrid1.cells[neuesx,neuesy] := 'X';
           delay(200);
           versuch(neuesx, neuesy);  {rekursiver Aufruf}
           StringGrid1.cells[neuesx,neuesy] := ' ';
           delay(200);
         end;
      end;
      z := z + 1;
     until (z = 5);
     end;                    

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

Bewertungsfunktion(newX, newY, oldX, oldY): Integer;
begin
  //Wenn neues Feld = Wand dann liefere -1 zurück und exit.
  //Wenn neues feld = Ziel, dann liefere 0 zurück und exit
  //Rufe rekuriv Bewertungsfunktion für Nachbarfelder auf (aber nicht die alte Position) und merke dir die Rückgabewerte
  //Gebe den Wert der niedrigten Bewerungsfunktion zurück + 1 (-1 sind Sachgassen, also nicht zurückliefern, außer wenn alles Sackgassen)
end;