Друзья, подскажите пожалуйста как реализовать процесс

[жекон]

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

[kat]

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

Я так тоже делал, но если перемещений много, программа получается слишком грамоздская. Мне интересно есть ли еще варианты попроще?