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.