Скриптинг для нуба

[TAMBIK]

const
  Name='ххххх';

var
  timer1: TTimer;
  x: integer;


procedure OnTimer1(Sender: TObject);
begin

case x of
0: begin
  timer1.interval := интервал_через_который_будет_отослан_первый_пакет;
end;

1: begin
  buf:=hstr('пакет №1');
  SendToServerEx(Name);
  timer1.interval := интервал_через_который_будет_отослан_второй_пакет;
end;

2: begin
  buf:=hstr('пакет №2');
  SendToServerEx(Name);
  timer1.interval := интервал_через_который_будет_отослан_третий_пакет;
end;

3: begin
  buf:=hstr('пакет №3');
  SendToServerEx(Name);
end;

else 
begin
  timer1.enabled := false;
  x := 0;
end;
end;
inc(x);
end;

//******************************************************************************
//                 Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin
  x := 0;
  timer1:=TTimer.Create(nil);//выделяем памать и т.п.
  timer1.OnTimer:=@OnTimer1;//привязываем процедуру к событию
  timer1.enabled:=true;//начальное положение true-включен/false-выключен
  timer1.interval:=1;//интервал
end;

procedure Free; 
begin
timer1.free;
end;

begin
end.

//alexteam: поправил.. малех..