Запутался в цикле

[Praud]

Спасибо за критику, сам знаю что код очень и очень далек от совершенства. И вы все конечно же правильно сказали, но переделывать я не хочу. Делфи я изучаю полтора месяца, пока идет лето. Скоро начнется университет и поэтому переделывать пол кода у меня просто нет времени.
Да он кривой, но работать он должен. Просто дело в какой-то переменной .

[BDA]

Сообщение от Brian W. Kernighan

Отладка кода вдвое сложнее, чем его написание. Так что если вы пишете код настолько умно, насколько можете, то вы по определению недостаточно сообразительны, чтобы его отлаживать.

Отсюда

Несколько путей решения:
1) Ждать озарения - случайно найти ошибку
2) Научиться пользоваться отладчиком
3) Переписать код более лаконично

Однажды, из-за 1 символа программа работала неверно.

[Praud]

Похоже придется ждать озарения.
По просьбе asmprog написать поставленную задачу:
Написать автокликер, который будет переходить по координатам и нажимать левую кнопку мыши. Координаты задаются с помощью клавиши backspace и выводятся в memo. Задавать можно минимум по 3 координаты. ( то есть, 3,6,9... До 30 ) Существует счетчик, который считает кол-во нажатий кнопки backspace, тем самым проверяя сколько задано координат. Есть таймер, по истечению таймера программа переходит к следующей тройки координат. Кнопка Esc переводит переменную Stopcircle в true, при Stopcircle:=true, весь цикл останавливается.

[northener]

Похоже придется ждать озарения.

Озарения можно ждать до дряхлой старости и кому оно тогда будет нужно?
А научиться пользоваться отладчиком гораздо проще. Хотя бы потому, что его можно изучать постепенно. Начать можно с "2+2", а именно с ознакомления с клавишами F5 и F8 (в предположении что уже известно что делает клавиша F9). Т.е. было бы желание.

P.S. Ну а людей, которые могут вполне осознанно сказать что они полностью изучили отладчик я лично не знаю.

[evg_m]

Существует счетчик, который считает кол-во нажатий кнопки backspace, тем самым проверяя сколько задано координат.

Есть таймер, по истечению таймера программа переходит к следующей тройки координат.

Кнопка Esc переводит переменную Stopcircle в true, при Stopcircle:=true, весь цикл останавливается.

есть список координат, надо
1. в течение заданного промежутка кликать на указанном месте с заданным интервалом.
По истечении промежутка перейти к другим координатам.
Если таковых нет, закончить работу.
2. иметь возможность оперативно перервать работу "нажать Esc".

решение
два таймера
1 TimerClick для повторных кликов на одном месте
2 Timercoord для перехода к новым координатам

...........buttonStartClick(sender: TObject);
begin
  timerClick.enabled:=false; //нам негде кликать отключаем таймер кликов 
  timerCoord.enabled:=true; //начинаем работу вкл. таймер переходов
end;

...........TimerCoordTimer(sender: TObject);
begin
  timerClick.enabled:=false; //пока нет координат нам негде кликать => отключаем таймер кликов
  if CalcClickcoord then  // вычисляем где будем кликать и можно ли это делать
    timerclick.enabled:=true; //запускаем таймер кликов
  end
  else timercoord.enabled:=false; // больше не будем работать
end;

...........timerClickTimer(sender: TObject);
begin
  if not self.timerCoord.Enabled then Exit; // проверим а может нас отключили но мы еще не узнали (Esc)
  if not self.timerClick.enabled then Exit; 
// устанавливаем по ИЗВЕСТНЫМ ((вычисляем место кликов И ЗАНОСИМ В ГЛОБАЛЬНЫЕ переменные, чтобы использовать при имитации клика.))
// делаем клик!!!!
end;

...........KeyPress(var key: char;...);
begin
  timerclick.enabled:=false; //отключаем и клики
  timercoord.enabled:=false; //и переходы
end;

...........function CalcClickCood: boolean;
begin
  if memocoord.lines.count<>4  then result:=false
  else begin
    вычисляем место кликов И ЗАНОСИМ В ГЛОБАЛЬНЫЕ переменные, чтобы использовать при имитации клика.
  end;
end;

НЕДОСТАТКИ: Клики начинаются не сразу а после срабатывания ДВУХ таймеров. сначала ждем таймер вычисления и контроля координат. Потом, после его срабатывания, еще ждем таймер кликов.
лечится:
перенос ВСЕХ действий из обработчиков во внутренние методы (процедуры) DoRunCoordClick; DoMouseClick;
в обработчиках оставляем только управление (вкл. таймеров).

...........buttonStartClick(sender: TObject);
begin
  timerCoord.enabled:=true; //вкл. таймер переходов
  DoRuncoordClick;//делаем не дожидаясь срабатывания
end;

...........TimerCoordTimer(sender: TObject);
begin
  doRunCoordclick;//делаем тоже ПРИ срабатывании
end;

...........timerClickTimer(sender: TObject);
begin
  DoMouseClick;//делаем тоже ПРИ срабатывании
end;

...........KeyPress(var key: char;...);
begin
  timerclick.enabled:=false; //отключаем клики
  timercoord.enabled:=false; //и переходы
end;

...........doRunCoordclick;
begin
  timerClick.enabled:=false; //пока нет координат нам негде кликать => отключаем таймер кликов
  if CalcClickcoord then  // вычисляем где будем кликать и можно ли это делать
    timerclick.enabled:=true; //запускаем таймер кликов
    doMouseClick;//делаем не дожидаясь срабатывания
  end
  else timercoord.enabled:=false; // больше не будем
end;

...........doMouseClick;
begin
  if not self.timerclick.enabed then Exit;
  if not self.timerCoord.Enabled then Exit; // проверим а может нас отключили но мы еще не узнали (Esc)
// устанавливаем по ИЗВЕСТНЫМ ((вычисляем место кликов И ЗАНОСИМ В ГЛОБАЛЬНЫЕ переменные, чтобы использовать при имитации клика.))
// и делаем клик!!!!
end;

[Praud]

Все таки не пришлось ожидать озарение до старости. stopminicircle в таймере переключается в true, однако в false он не переводится ( если задана первая тройка координат, далее переключается). Всем спасибо.