minesweeper problem

[dajuhsa]

hallo,
ich möchte eine art minesweeper programmieren und das meiste klappt auch.
Aber wenn man bei minesweeper auf ein leeres feld klickt, werden ja bekanntlich auch alle angrenzenden leeren felder geöffnet, ich habe das so versucht:

Delphi-Quellcode:

procedure TMinesweeper.LeerzeichenAufdecken;
var
i,j    : integer;
gep    : array[1..15,1..15] of Boolean;
weiter : Boolean;
begin

  for i := 1 to 15 do
   for j := 1 to 15 do
    gep[i,j] := false;
  weiter := false;

  for i := 1 to 15 do
   for j := 1 to 15 do
  begin
    if not gep[i,j] then
    if Spielfeld[i,j] = 0 then
    begin
      RundrumAufdecken(i,j);
      gep[i,j] := true;
      weiter := true;
    end;
  end;
  if weiter then
    LeerzeichenAufdecken;

end;

"gep" bedeutet hier soviel wie "bereits geprüft" und soll verhindern, dass ein leeres feld mehrmals geprüft wird.
das Feld ist 15 mal 15 felder groß und "Spielfeld" speichert die Lage der Minen,Zahlen,Leerzeichen, und nicht die der Fahnen(0 bedeutet hier leerzeichen).
Wenn ich dann aber auf ein leeres feld klicke, kommt eine Exception "EStackOverflow" und die Zeile die rot wird ist diese hier:

Delphi-Quellcode:

procedure TMinesweeper.RundrumAufdecken(X,Y: Integer);
begin  // <---- diese hier ---->
  if (X=1) and (Y=1) then
  begin...

bitte helft mir, den fehler zu finden, ohne die leerzeichen-aufdeck-prozedur "effizienter zu gestalten" oder so, das soll nur eine Übung für mich sein,

EDIT: Ich habe das "gep"-array jetzt zu global geschoben anstatt lokal, das hab ich bemerkt dass das falsch war

gruß,
dajuhsa