Обойтись без таймера

[Pedro]

Господа программисты, посмотрите пожалуйста вот эту программку, и подскажите, как в данном случае можно обойтись без таймеров.
prog.rar

[chingiz]

можно сделать так: кидаешь на форму ApplicationEvents с вкладки Aditional и обрабатываешь событие onIdle

procedure TForm4.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
  Sleep(10);
  for i := 1 to 5 do
  begin
    b[i].Top:=pos[i].y;
    b[i].left:=pos[i].x;
  end;
  begin
    x:=x+1;
    pos[x]:=mouse.CursorPos;
    if x>5 then x:=0;
  end;

end;

а можно просто забить бесконечный цикл и вставить туда slep();