[dyh9l]

Вроде так, добавить чаров при необходимости.

var
Timer:TTimer;
procedure Init;
begin
Timer := TTimer.Create(nil) ;
Timer.Interval := 500 ;
Timer.Enabled := true ;
Timer.Ontimer := @spam ;
end;
procedure Free;
begin
Timer.free;
end;
procedure spam;
begin
buf:=HStr('суда засунуть пакет');
SendToServerEx('имя1');
SendToServerEx('имя2');
SendToServerEx('имя3');
SendToServerEx('имя4');
end;
begin
end.