Таймер начинает лагать после запуска 3-его

[Xaker_Two]

хм интересная задумка сделать объект временно невидимым пока не нажата клавиша а если он видимый то начать его обрабатывать впринцыпе интересное решение... щас попробуем переделать

[Xaker_Two]

Serge_Bliznykov, Спасибо огромное за помощь, разобравшись я переписал код вообще с чистого листа и этот прием мне помог, теперь вот сижу думаю чем бы ещё форум загрузить)) Короч, тема закрыта. Решение вот:

const
Max=50;  //задаем максимальное число объектов в массиве через коонстанту

...

var
I:integer;  //задаем счетчик
Mass:Array[1..Max] of TObject;  //задаем массив и тип объектов
Temp:TObject;  //задаем переменную для создания объектов которыми будем заполнять массив
...
procedure TForm1.Create(...);
begin
for I:=1 to Max do    //запускаем счетчик
  begin
  Temp:=TObject.Create(Owner);  //создаем новый объект
  Temp.Config1:=...;  //задаем нужные нам параметры
  Temp.Config2:=...;
  ...
  Temp.ConfigN:=...;
  Mass[I]:=Temp;  //заливаем полученый объект в массив
  end;
end;
...

...
procedure TTimer01(...);  //далее активируем обработку объекта допустим таймером
begin
for I:=1 to Max do  //запускаем счетчик
  begin
  if Mas[I].Config1=... then Mas.[I].Config2:=... //задаем необходимые условия и что делать если их значение нужные
  else Mas[I].Config3:=...;  //пожеланию задаем что делать если значения не те
  end;
end;

[Serge_Bliznykov]

Всегда пожалуйста!

рад, что мой пример пригодился.