247        begin

   247        begin

   248        AddLoopPoints(pa, opa, StartLoop, i, Delta);

   248        AddLoopPoints(pa, opa, StartLoop, i, Delta);

   249        inc(i, 2);

   249        inc(i, 2);

   250        StartLoop:= i;

   250        StartLoop:= i;

   251        pa.ar[pa.Count].X:= NTPX;

   251        pa.ar[pa.Count].X:= NTPX;

   252        inc(pa.Count);

   253        inc(pa.Count);

   253        end else inc(i)

   254        end else inc(i)

   254 end;

   255 end;

   255 

   256 

   256 procedure FillLand(x, y: LongInt);

   257 procedure FillLand(x, y: LongInt);