Pascal цикл с Shape.Left and Shape.Top

[BanzoO]

На пространстве формы изображен календарь за август текущего года с го-ризонтальным расположением недель. Рамка синего цвета в виде квадрата с закруг-ленными углами и толщиной линии в 3 пикселя движется по датам с дискретом вре-мени 0.7 сек. Запуск движения – кнопка «Пуск», остановка – кнопка «Стоп», что при-водит к установке рамки на первую дату

Помагите организовать Цикл.
Делал через If дошёл до 3й строки, потом пошли противоречия.
А через цикл с i не могу сделать, незнаю как правельно организовать

[BanzoO]

А так же пробывал с 3 таймерами, то же не получилось((((