procedure FillRecursive;
var tempx,tempy:integer;
begin
if(isValid(gx, gy))
then begin
SetPixel(gx, gy, fillColor);
tempx:=gx;
tempy:=gy;
gx := gx + 1;
FillRecursive;
gx := gx - 2;
FillRecursive;
gy := gy + 1;
FillRecursive;
gy := gy - 2;
FillRecursive;
gx:=tempx;
gy:=tempy;
end;
end;