Кружок нубов(Вопрос-Ответ)

[PanAm]

cepreu, Повтор пакетов лучше оформить через таймер
например

Var
  Timer : TTimer;
procedure Init; //Вызывается при включении скрипта
begin
  Timer :=TTimer.Create(nil);
  Timer.enabled :=false;         //таймер выключен
  Timer.OnTimer :=@MyAction; //адрес процедуры, 
                                         //которая будет выполнятся
  Timer.interval :=2000;         //интервал в мс
end;

procedure Free; //Вызывается при выключении скрипта
begin
  Timer.Free;
end;

procedure MyAction(Sender: TObject);
begin
  buf:=hstr('бла бла бла');  // тут вписываешь пакет
  SendToServerEx('а тут имя соединения');                     
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
     ......
     //сочиняешь по какому условия включить таймер
      Timer.enabled :=true
    //и соответственно выключить
      Timer.enabled :=false;
  end;
end.