Timer и Application.ProcessMessages

[Zerofill]

Здравствуйте. У меня такая проблема. На форме имеется shape9 кот необходимо двигать по этой самой форме. Он доходит до shape1 и останавливается. У меня 2 таймера. 1ый активизирует 2ой, а 2ой выполняет передвижение shape9. Причем после того, как shape9 достигнет shape1 (в коде эт s[id]) то таймер2 останавливается. Используется внутри события OnTimer 1го таймера Application.ProcessMessages. Проблема в том, что после Application.ProcessMessages в событии OnTimer 1го таймера есть еще действия, кот необходимо выполнить, но они не выполняется. Программа просто останавливается и ничего больше не происходит. В чем ошибка?
Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
...
timer2.Enabled:=true;
while timer2.Enabled do application.ProcessMessages;
if s[id].num>0 then begin
dec(s[id].num);  label17.Caption:=inttostr(s[id].num);
shape10.Visible:=true; ...
 end;

procedure TForm1.Timer2Timer(Sender: TObject);
var xx,yy:integer;
begin
xx:=round(shape9.Left+shape9.Width/2);
if m>0 then begin
    if xx<s[id].x then begin
    shape9.Left:=shape9.Left+4;
    xx:=round(shape9.Left+shape9.Width/2);
    end
    else begin
     if n>0 then begin
     yy:=shape9.Top;
          if yy<s[id].y then begin
          shape9.top:=shape9.top+4;
          yy:=shape9.top; end;
          end
     else begin  yy:=shape9.Top;
                if yy>s[id].y then begin
                shape9.top:=shape9.top-4;
                yy:=shape9.top; end;  
                end; end;
    end
else begin
  if xx>s[id].x then begin
    shape9.Left:=shape9.Left-4;
    xx:=round(shape9.Left+shape9.Width/2);
    end
    else begin
     if n>0 then begin  yy:=shape9.Top;
          if yy<s[id].y then begin
          shape9.top:=shape9.top+4;
          yy:=shape9.top; end; end
     else begin  yy:=shape9.Top;
                if yy>s[id].y then begin
                shape9.top:=shape9.top-4;
                yy:=shape9.top; end; end; end;
    end;
if (shape9.Top=304{s[id].y}) and (shape9.Left=256{s[id].x}) then
timer2.Enabled:=false;
end;

[Пепел Феникса]

советую изучить на чем основан таймер.
а он основан на сообщении WM_TIMER

[mihali4]

В чем ошибка?

В том, что таймер 1 "пилюёт" на активность таймера 2 и все время его запускает.
Вы разве сами этого не видите:

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
...
timer2.Enabled:=true;

Какие интервалы установлены у таймеров?

[Zerofill]

Но ведь внутри события ontimer 2го таймера идет проверка условия, которое рано или поздно все равно выполнится, а когда выполнится, тогда деактивирует этот самый второй таймер. Интервалы заданы у первого 200 мс, у второго 70 мс
В общем, сейчас в таймере 1 операции, следующие за while timer.enabled do application.processmessages; выполняются. Но! опять встает проблема.
таймер 1 должен срабатывать по условию:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if length(richedit1.Text)>1 then begin
  st:=REGetTextRange(RichEdit1,0,4);//выделяю часть текста длиной 4 символа
  id:=strtoint(st[1]);
  id2:=strtoint(st[3]);
  if (shape9.Left+shape9.width/2)<s[id].x then m:=1 else m:=-1;
  if id in second then n:=1 else n:=-1;
  timer2.Enabled:=true;
  while timer2.Enabled do application.ProcessMessages;

  if s[id].num>0 then begin 
      dec(s[id].num);
      label17.Caption:=inttostr(s[id].num);
      shape10.Visible:=true;
      shape10.Left:=round(s[id].x-shape10.Width/2);
  end; 
  st:=richedit1.Text[length(richedit1.Text)-4];
  richedit1.Text:=st;
end
else
timer1.Enabled:=false;
end;

Но он выполняет и выполняет, т.е. уменьшает s[id].num до нуля (например изначально s[id].num=6, и событие ontimer срабатывает 6 раз, хотя должно 1, потому что строка после первого выполнения события уже содержит всего лишь 1 символ).
Простите, конечно, меня за мой тупизм, но я уже не знаю что делать и за что ухватиться...

[mihali4]

Сообщение от Zerofill

Но ведь внутри события ontimer 2го таймера идет проверка условия, которое рано или поздно все равно выполнится, а когда выполнится, тогда деактивирует этот самый второй таймер. Интервалы заданы у первого 200 мс, у второго 70 мс

Сделайте первой и последней строкой :

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
Timer1.Enabled:=False;
...
Timer1.Enabled:=True;
 end;

[Zerofill]

Получилось. Сработал 1 раз. Спасибо Вам огромное!