Работа с таймером и комбобоксом

[adkomissarov]

Всем привет. Подскажите пожалуйста новичку. Необходимо автоматизировать некие моменты (это нажатия на определенные места на экране) Должно это выглядеть так: Имеется форма с комбобоксом и полем и кнопкой, в комбобоксе выбор , назовём "1" и "2", в поле вводим количество повторений ну и кнопка запускает все это дело.
В идеале должно быть так: Тычу в комбо "1" в поле ввожу например 3 и жму кнопку старт, по истечению 10 сек - мышь шагает по определенным координатам, проходит еще 10 сек и мышь повторяет это, и потом третий раз (ну или сколько я укажу в поле едит). В общем туда сюда пробую всяко, но получаю либо 1 раз либо бесконечное число повторений, вот код, но он не работает нужным образом:

procedure TForm1.FormCreate(Sender: TObject);
begin
 tmr1.Enabled:= false;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin

  if cbb1.ItemIndex=0 then begin
  sec:= 10;
  kol:= StrToInt(edt1.Text);
  tmr1.Enabled:= True;
  end;

  end;


procedure TForm1.tmr1Timer(Sender: TObject);
begin
sec:=sec-1;

  if sec=0 then begin

    for i := 1 to kol do begin



            SetCursorPos(200, 200);
            Sleep(1000);
            SetCursorPos(300, 300);


            tmr1Timer(Self);


          end;



   end;

  form1.Caption:= ('Осталось '+IntToStr(sec)+' секунд');

[evg_m]

Вар 1. без работы с заголовком формы и "длинным" таймером

procedure TForm1.FormCreate(Sender: TObject);
begin
   tmr1.Enabled:= false;
   tmr1.interval:=10*1000; //интервал срабатывания таймера >=10 сек. 
end;

procedure TForm1.btn1Click(Sender: TObject);
begin

  if cbb1.ItemIndex=0 then begin
    kol:= StrToInt(edt1.Text);
    tmr1.Enabled:=(kol>0);
  end;

  end;


procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if kol>0 then begin
     SetCursorPos(200, 200);
     kol:=kol-1;
  end;
  timer1.enabed:=kol>0;
end;

вар 2. засекаем время нужного срабатывания (контрольное время)
периодически (в таймере) следим за текущим временем
информируем о разнице текущего и контрольного времен
и по наступлению нужного времени выполняем нужное

procedure TForm1.FormCreate(Sender: TObject);
begin
  tmr1.Enabled:= false;
   tmr.interval:=500;
  self.caption:='неактивно';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin

  if cbb1.ItemIndex=0 then begin
    timeclick:=now;
    IncSec(timeclick, 10);  //вычисляем время следующего действия мыши
    kol:= StrToInt(edt1.Text);
    tmr1.Enabled:=(kol>0);
    self.caption:=format('осталось: %d', [ SecBeetwean(now, timeclick) { разница времен в секундах }  ] );
  end;

end;


procedure TForm1.tmr1Timer(Sender: TObject);
begin
  form.caption:=secsBeetween(now, timeclick);//число секунд между текущим временем и временем следующего действия мыши
  if now>=timeclick then begin

            SetCursorPos(200, 200);
    kol:=kol-1;
    timeclick:=now;
    IncSec(timeclick, 10);  //вычисляем время следующего действия мыши

  end;
  self.timer1.enabled:=(kol>0);
end;

[adkomissarov]

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

Вар 1. без работы с заголовком формы и "длинным" таймером

В принципе вариант хороший, но хочется разобраться, непонятна только одна строчка:

tmr1.Enabled:=(kol>0);

Расскажите пожалуйста что это за параметр?

[evg_m]

tmr1{ наш таймер}.Enabled{будет включен}:={только когда будет выполнятся следующее условие}(kol>0);

при исчерпании лимита действий (kol <=0) он "автоматом" выключится.

[adkomissarov]

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

tmr1{ наш таймер}.Enabled{будет включен}:={только когда будет выполнятся следующее условие}(kol>0);

при исчерпании лимита действий (kol <=0) он "автоматом" выключится.

Спасибо большое)