[Bacek]

Всем спасибо за помощь все работает
Вот скрипт если каму то понадобится

var
TimerCycle:integer;
timer:TTimer;

procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=10;
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
TimerCycle:=1; 
end;

procedure OnTimer(Sender: TObject);
begin 
case TimerCycle of
  1:begin   
  buf:=HStr('A6 3E 84 06 10 00 00 00 00'); //1 пакет
  sendtoserver;
  Inc(TimerCycle);
  timer.interval:=200;  
  end; 
  2:begin  
  buf:=HStr('7B 36 00 A1 C5 01 10');  //2 пакет
  sendtoserver;
  Inc(TimerCycle);
  timer.interval:=2500;      
  end;
  3:begin  
  buf:=HStr('93 A0 C5 01 10 00 00 00 00');  //3 пакет
  sendtoserver;    
  TimerCycle:=1;
  timer.interval:=600;    
  end;      
end;
end;

procedure Free; 
begin
timer.free;
end;


begin
    useforconnectid := ConnectID;
    if FromClient and (pck=HStr('5D 0D 00 00 00 00 00 00 00 00')) then timer.enabled:=true;
    if FromClient and (pck=HStr('5D 0C 00 00 00 00 00 00 00 00')) then timer.enabled:=false; 
end.