Алгоритм на 4 хода

[ClMlD]

Добрый час , помогите создать алгоритм действий:
Есть 4 круга, на каждом круге принимается решения в зависимости от круга
как это реализовать более правильно, то есть если круг = 1 тогда это, если круг = 2 тогда это, итд до 4. при этом создать цикл проверки что наступил момент принятия решения. Пробовал. While программа висит, с помощью компонента таймер все норм, но интуиция подсказывает что этот вариант не верен.Принятие решения должно быть перед проверкой 4 кругов.
Не прошу кода, прошу алгоритм реализация , хотя и от примера тоже не откажусь

Нагуглив понял что case не подходит так как не работает со строками

[Stilet]

А каков критерий принятия решения?

[ClMlD]

Критерий(честно сказать не понял вопроса но попытаюсь объяснить) : примеру

var
hod,h:string;
h:='Hod.bmp';
While hod <> h do
scrin(x,y,h,w);// Скриншот облости
RimgL(k); // Процедура проверки изображдения
logic;
Bot.RImgL.Caption:=hod; // Если совпало по массиву тогда выдаем 
//значение Hod
if h = hod then logic;
// по идеи цикл стал равен Hod.bmp цикл закончен(если наступил нужный момент)
end;

Как мне кажется цикл должен выполнятся до тех пор пока не увидит нужный скрин
Но программа виснет. это не беда таймер справляется на отлично
но как дальше ?

Например:

procedure logic;
con:string;
begin
if con = '1' then процедура на кон1
if con = '2' then процедура на кон2
//Процедура кона будет вызывать другие процедуры
//опираясь на них будет принято решение

Что бы было понятнее эта функция на 4 хода в игре покер техас холдем

Наброски более чем уверен на работоспособны , они так ,для примера .

[Stilet]

Без обид но что-то я совсем не понял... Видимо оливье с грибами пошло бродить не туда...
Как по мне то так:

Hod:=1;
while Hod<5 do begin
 WaitStep(); //Ждем хода
 if Hod=1 then Con1 else
 if Hod=2 then Con2 else
 if Hod=3 then Con3 else
 if Hod=4 then Con4
 ;
end;

procedure ConXX;
begin
 Чет там делаем
 inc(Hod);
end;

[ClMlD]

Вроде как получилось но:
Что такое WaitStep ? я заменил на sleep
и у меня не выходит прервать этот цикл то есть переменая равна 1 выполнили нужную процедуру в этой же переменой я меняю значение переменой на 5 как бы нетраль будет , но цикл дальше шпарит и шпарит
тестил помощью showmessage ,сори с зацикливание цикла решил проблему просто добавил присвоение переменной внутри цикла не только с наруже