отправка пакетов через таймер

[PadshiyAngel]

Есть скрипт, грубо говоря стырил его отсюда...немного доделал... запускаю...ошибок никаких не пишет...но пакеты не отправляются( в чем прикол не пойму...помогите)

var
   Timer01: TTimer;
   TimerCycle:integer;  
   
procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=2700; //интервал(в милисекундах) как часто таймер срабатывает
   TimerCycle:=1;
end;
procedure OnTimer01(Sender: TObject);
begin 
case TimerCycle of
1:begin   
  buf:=hstr('0C 0D 7C 11 10 00 00 00 00');
  SendToServer;
    Inc(TimerCycle);
    Exit;   
  end;
2:begin  
  buf:=hstr('43 4C 00 76 A0 04 10');
  SendToServer;
    Inc(TimerCycle);
    Exit;    
  end;
3:begin
  buf:=hstr('65 76 A0 04 10 00 00 00 00');
  SendToServer;
    TimerCycle=1;
    Exit;          
   end;  
end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer01.Free; //освобождаем занимаемую память таймером
end;

begin
  timer01.enabled:=true;
end.