[gebs]

Здравствуйте. В связи со своими скудными знаниями в программировании, у меня не получается решить одну задачу.

Будьте добры помогите советом или наведите на путь истинный. Попытаюсь обрисовать что есть и что нужно получить в итоге.

Есть Memo в нём в каждой строке есть числа от 1 до 10

Есть глобальная переменная X, зависящая от t, стоит задача пройти по строкам в мемо поле и выполнить код в зависимости от переменной X, X не может быть равно 2, если X не равно 2 то продолжить выполнение программы, если X =2, то подождать 1 секунду, если результат X будет равен 2 то подождать ещё 1 сек и так до тех пор по X примет значение, отличное от 2, после чего продолжить выполнение цикла мемо. Известно, при начале обработки цикла мемо, X не равен 2. Ниже приведён код, который я смог родить. Поправьте чтоли меня.

Код:

 for i:=0 to mmo1.Lines.Count - 1 do begin
   s:=mmo1.Lines[i];
   mmo1.Lines[i]:=s;

    if X <> 2 then
      begin
       t:=2;
       1 * t: = X
      end
    else
    begin
      if X = 2 then
      begin
       repeat
         begin
         Sleep(1000);
         end;
       until X <> 2;
     end;
    end;


 end;

При таком раскладе программа выполняется 1 раз, хотя по идее должная была повторять 1 секундное ожидание пока X не примет значение отличное от 2 и продолжить выполнение цикла.
Заранее спасибо за Ваши отзывы, очень надеюсь на ваши наставления!