Отправка пакетов с интервалом

[0rfin]

Так что ли, еще пока не пробывал

var Timer :TTimer;

procedure Init; //Вызывается при включении скрипта
begin
 Timer:=TTimer.Create(nil);  
 Timer.OnTimer:=@onTimer;
 Timer.Enabled:=True;
 Timer.Interval:=500; 
end; 
procedure onTimer(Sender: TObject);
begin 
  
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 2E 00 68 00 74 00 6D 00 00 00');
    SendToServer;
    Delay(500);  
    
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 62 00 2E 00 68 00 74 00 6D 00 00 00');
    SendToServer; 
    Delay(500);  
    
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 39 00 36 00 32 00 39 00 00 00');
    SendToServer; 
    Delay(500);  
    
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 33 00 2E 00 68 00 74 00 6D 00 00 00');
    SendToServer; 
    Delay(500);  

end;

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