Подскажите скрипт

[ForSer]

Нужен скрипт который через определенный интервал отправил бы несколько пакетов.

Схема скрипта

PHP код:

Пакет отправляеться на сервер
---------------------------------------------интервал например 50мс
Снова пакет
---------------------------------------------снова интервал 50мс
и так далее 


после того как скрипт отправит все пакеты которые в него напихают просто выключался.

Если кому не трудно придоставте такой скриптик

[J-Fobos]

круто...

[goodvin1709]

const
  TimerInterval=100;
var
  i:byte;
  Timer1:TTimer;

procedure Init;
begin
  I:=0;
  Timer1:= TTimer.Create(nil) ;
  Timer1.Interval := TimerInterval ;
  Timer1.Enabled := False ;
  Timer1.Ontimer := @OnTimer ;
end;

procedure Free;
begin
  Timer1.free;
end;
Procedure OnTimer;
begin
  Timer1.enabled:=false;
  I:=i+1;
  case i of
    1: begin Пакет1 end;
    2: begin Пакет2 end;
    3: begin Пакет2 end;
    4: begin Пакет2 end;
    5: begin Пакет2 end;
    6: begin Пакет2 end;
    7: begin Пакет2 end;
    8: begin Пакет2 end;
    9: begin Пакет2 end;
  end;
  if i<10 then 
    timer1.enabled:=True;
  else
    timer1.free;
end;

begin
end.