[wimax]

Const
Name='';//ник

var
   Timer01: TTimer;
procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=15000; // интервал(в милисекундах) как часто таймер срабатывает
end;
procedure Free;
begin
    Timer01.free;
end;
procedure OnTimer01(Sender: TObject);
begin
Timer01.enabled:=False;
pck:='';
buf:=HStr('какой пакет отпровлять');
SendToServerEx(Name);
end;

begin
if FromServer and (ConnectName=Name) and (pck=HStr('пакет для включения скрипта')) then
begin
Timer01.enabled:=True;
end;
end.

чтота типа такого =)