1225             haveDivided := true;

  1225             haveDivided := true;

  1226             break

  1226             break

  1227             end;

  1227             end;

  1228         nx := nx - tx;

  1228         nx := nx - tx;

  1229         ny := ny - ty;

  1229         ny := ny - ty;

  1232         // len := len - _0_3 // should be the same as increase step

  1231         // len := len - _0_3 // should be the same as increase step

  1233         len.QWordValue := len.QWordValue - _0_3.QWordValue;

  1232         len.QWordValue := len.QWordValue - _0_3.QWordValue;

  1234         end;

  1233         end;

  1235 

  1234 

  1236     if not haveDivided then

  1235     if not haveDivided then