Я иногда делаю так if(условие первого перемещения) then step:=1
if(условие второго перемещения) then step:=2
case step of
1:чего нужно сделать 1 раз
2:чего нужно сделать во второй раз
и т.д и т.п