if y ‹ oldy then
           begin
            Ms.FindFirst;
            oldy := 0;
           end;
//          repeat
//            Ms.FindNext;
//            inc(oldy);
//          until y = oldy;

// ------------ Исправил 3042 09.10.2017 ------------

     while oldy ‹ y do  begin Ms.FindNext; inc(oldy); end;