Глубокая рекурсия, StackOverflow

[batareya16]

Мне дали задачу написать что-то вроде графического редактора, написал рекурсивную процедуру заливки по цвету, сначала обрадовался, но не тут-то было: при слишком больших размерах заливки программа выдает переполнение.

Вот сам код:

procedure zalivka(x,y:integer; inputcolor,destcolor:TColor; Image:TImage);
begin
Image.Canvas.Pixels[x,y]:=destcolor;
If Image.Canvas.Pixels[x-1,y]=inputcolor then zalivka(x-1,y,inputcolor,destcolor,Image);
If Image.Canvas.Pixels[x+1,y]=inputcolor then zalivka(x+1,y,inputcolor,destcolor,Image);
If Image.Canvas.Pixels[x,y-1]=inputcolor then zalivka(x,y-1,inputcolor,destcolor,Image);
If Image.Canvas.Pixels[x,y+1]=inputcolor then zalivka(x,y+1,inputcolor,destcolor,Image);
end;

Что посоветуете делать?
Может как-то заменить рекурсию на цикл?

[batareya16]

Нашел способ в интернете)
Может кому надо будет
Вместо рекурсии создаем свой стек:

Procedure PutSt(var Stk:PStk;X,Y:integer);
 Var
   St:PStk;
  Begin
    New(St);
    St^.x:=X;
    St^.y:=Y;
    St^.prev:=Stk;
    Stk:=St;
  End;

Procedure GetStk(var Stk:PStk;var X,Y:integer);
 Var
   St:PStk;
  Begin
    If not Assigned(Stk) Then Exit;
    X:=Stk^.x;
    Y:=Stk^.y;
    St:=Stk;
    Stk:=Stk^.prev;
    Dispose(St);
  End;

А потом просто циклом заносим в стек координаты и закрашиваем то, что сами извлекли из стека:

procedure zalivka(x,y:integer);
var Stk:PStk;
 x1,y1:integer;
begin
  x1:=x; y1:=y;
   Stk:=nil;
    PutSt(Stk,X1,Y1);
    While Assigned(Stk) do begin
     GetStk(Stk,X1,Y1);
     RealImage.Canvas.Pixels[x1,y1]:=destcolor;
      If RealImage.Canvas.Pixels[x1-1,y1]=inputcolor then PutSt(Stk,X1-1,Y1);
      If RealImage.Canvas.Pixels[x1+1,y1]=inputcolor then PutSt(Stk,X1+1,Y1);
      If RealImage.Canvas.Pixels[x1,y1-1]=inputcolor then PutSt(Stk,X1,Y1-1);
      If RealImage.Canvas.Pixels[x1,y1+1]=inputcolor then PutSt(Stk,X1,Y1+1);
    end;
     Application.ProcessMessages;
end;