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

[0rfin]

Как отправлять пакеты по кругу с интералом между ними 300 мс?

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

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

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

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

Добавлено через 21 минуту
как то так

   
A:
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(300);   
    
    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(300);
      
    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(300);
    
    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(300);
     goto A;

Добавлено через 19 минут
Не получается по кругу пустить