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

function TForm1.WegFinden(x,y:Integer):Boolean;
begin
 if not weggefunden then
  begin
    if (Map[x,y].Name = '') or ((Ziel.X <> x) and (Ziel.Y <> y))  then
    begin
      if (Ziel.X = x) and (Ziel.Y = y) then
      begin
        Ausgang;
        weggefunden := true;
      end else
      if Map[x,y].Name = '' then
      begin
        Map[x,y].Name:='m';
        WegFinden (x,y+1);  {nach rechts}
        WegFinden (x+1,y);  {nach unten }
        WegFinden (x,y-1);  {nach links }
        WegFinden (x-1,y);  {nach oben  }
        Map[x,y].name:='';
      end;
    end;
  end;
end;