цикл for in timer

[one1991]

люди добрые долгое время не писал на дельфе много забыл, напомните как в таймере сделать цикл фор с использованием динамического создания компонентов на форме, мне нужно сделать так чтобы объекты появлялись с каждым обновлением таймера в разных местах, вот мой код:

var
i:integer;
begin
    for i:=1 to 10 do
    begin
  img:=TRxGIFAnimator.Create(nil);
  img.Name:='straw'+inttostr(i);
  img.Image.LoadFromFile('imgs/strawberry.gif');
  img.AutoSize:=true;
  img.Top:=i*30;
  img.Left:=i*40;
  img.Parent:=Form1;
    end;
end;

что не так? как сделать чтобы каждый раз в новом месте они не все сразу появлялись, а по очереди???

[Пепел Феникса]

заведите внешний счетчик.(и без цикла в таймере)
и по одному за одно срабатывание добавляйте, а то вы по 10 за раз добавляете.
соответственно когда счетчик дойдет до нужного значения отключаем таймер.

[one1991]

спс попробую -)

[one1991]

вообще красота огромное спасибо Пепел Феникса -)

type
mas=array[0..20] of integer;
var
a: mas;
i, b:integer;
begin
strawtimer.Tag:=strawtimer.Tag+1;
i:=strawtimer.Tag;
  img:=TRxGIFAnimator.Create(nil);
  img.Name:='straw'+inttostr(i);
  Randomize;
  for b:=1 to 100 do
    begin
      img.Left:=random(550);
      img.Top:=random(280);
    end;
  form1.caption:=IntToStr(b);
  img.Image.LoadFromFile('imgs/strawberry.gif');
  img.AutoSize:=true;
  img.Parent:=Form1;
end;

[one1991]

а подскажите ещё пожалуйста как найти компонент самый маленький по номеру, чтобы когда мой объект доходит до динамического объекта этот динамический объект изчезал, нужно знать его имя а как его найти???

ошибка в условии при поиске компонента:

var
i:integer;
begin
i:=strawtimer.Tag;
  img:=TRxGIFAnimator(FindComponent('straw'+inttostr(i)));
  if img.Width=medved.Left then
    begin
      showmessage('клубничка');
    end;
end;

[Пепел Феникса]

FindComponent используй. примеры на форуме в массе.

[one1991]

так я использую, у меня вылазиит ошибка сразу -( есть аська? напиши 416007193 тут где-то с кодом косяк -(