торможение Ttimer - ? Опции

[1147]

Такая ситуация: 6 таймеров работают одновременно, у трех из них интервал 50 у остальных 70. При этом переходы между изображениями, которые меняют таймеры, сильно тормозят. Стоит включить 7й таймер, одновременно работающий с остальными с интервалом 70, торможение исчезает, хотя по логике, торможение должно возрасти... В чем тут может быть причина? Можно ли избежать торможение изображений?

[Client]

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if ind<35 then Inc(ind) else ind:=0;


if ind=0 then image2.Visible:=true;
if ind=1 then image3.Visible:=true;
if ind=2 then image4.Visible:=true;
if ind=3 then image5.Visible:=true;
if ind=4 then image6.Visible:=true;
if ind=5 then image7.Visible:=true;
if ind=6 then image8.Visible:=true;
......
if ind=35 then image24.Visible:=true;
end; 

заменится на

if ind<35 then Inc(ind) else ind:=0;
my_array[ind+2].visible := true;

Ну, для каждого таймера сделать проверку на границы, и все.
Только, не забудь, что бы не получилось так, что 2 элемент массива не указывал на 5 (6,7,8...) имедж, а именно на Image2.