Писать скрипты для phx.

[Nickers]

1й вариант мимо 2й почти правильно...

Var
  timer:TTimer;

procedure Init; //Вызывается при включении скрипта
begin
  timer:=TTimer.Create(nil);
  timer.OnTimer:=@OnTimer;
  timer.enabled:=true;
  timer.interval:=1000; //время задержки
end;

procedure Free;
begin
  timer.Free;  //Освобождаем память (Спасает от ошибок и вообще Эстетически верно)))
end;

procedure OnTimer(Sender: TObject);  //Процедура вызывается, если (timer.enabled=true),
begin                               // каждые timer.interval (мс)
  buf:=#$00; //Пакет, который посылаем
  SendToServerEx(Name);
end;

Вот так...

timer.enabled:=true;

Если присвоить true-таймер будет выполняться (1й раз выполняется по прошествию времени таймера (Если хочешь чтобы при включении скрипта и потом каждые (время таймера), то просто поставь отправку этого пакета перед этой строчкой Оффтоп

timer.enabled:=true;

или сразу после нее...
Если timer.enabled:=false; таймер останавливается...
В procedure Init; указываешь начально состояние (При включении скрипта работает или нет)(эта процедура выполняется при включении скрипта)