Простой алгоритм Опции

[лёшик]

Народ, прошу помощи, подскажите алгоритм для присваивания возрастающего значения числовой
переменной ( a:=a+1) и при достижении заданного значения aLim уменьшения значения до нуля (a:=a-1),
чтобы в итоге текущее значение циклически колебалось в этих пределах. Цикл задан методом OnTimer.
Заранее спасибо! Понимаю, что листинг такого алгоритма крайне несложен, но для чайника задачка пока что
непосильная))))

[лёшик]

в коллективе ликбез идет семимильными шагами, на три порядка быстрее, чем в одиночку, картина проясняется)))


Добавлено через 2 мин.

Не надо никаких логических переменных, достаточно хранить изменение (положительное или отрицательное):

delta := 1; a := 1;
...
procedure ontimer;
begin
  if (a <= 0) or (a >= aLim) then delta := -delta;
  inc(a, delta);
end;

Добавлено через 38 сек.
У тебя Хелпа нет? F1 не нажимается?

Хелп в порядке, но несколько он заумный для неграмотного новичка, как правило, остается вне контуров извилин)))


Добавлено через 7 мин.

чот у меня индицируются только крайние значения, нет пошагового изменения переменной (((

в коллективе ликбез идет семимильными шагами, на три порядка быстрее, чем в одиночку, картина проясняется)))
Добавлено через 2 мин.
Хелп в порядке, но несколько он заумный для неграмотного новичка, как правило, остается вне контуров извилин)))

Добавлено через 5 мин.
О, уже работает полным ходом, еще раз спасибо ! ! ! ! !