Тогда вот так наращивание массива должно быть
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(x, i+1);
x[i]:= TTimer.Create(Self);
x[i].Interval:= 10000;
x[i].Enabled:= true;
x[i].OnTimer:= myproc;
Inc(i);
end;
а обработчик возможен такой
Код:
procedure TForm1.myproc(Sender: TObject);
begin
(Sender as TTimer).Enabled:= false;
end;