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

[ForSer]

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

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

Пакет отправляеться на сервер
---------------------------------------------интервал например 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.