[KPOT^^]

Сообщение от Vilson

Это если интервал между пактами нужен одинаковый и пакетов несколько и разных.

Абсолютно верно.

procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=true; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=500; //интервал(в милисекундах) как часто таймер срабатывает
end;
procedure onTimerItemSelect(Sender: TObject);
begin 
case TimerCycle of
1:begin   
  buf:=hstr('1');
  SendToServer;
    Inc(TimerCycle);
    Exit;   
  end;
2:begin  
  buf:=hstr('2');
  SendToServer;
    Inc(TimerCycle);
    Exit;    
  end;
3:begin
  buf:=hstr('3');
  SendToServer;
    Inc(TimerCycle);
    Exit;          
   end;  
end;
end;

Ругается на конец скрипта, пишет "Ошибка 'BEGIN' expected"