[dyh9l]

ну сделай так тогда

const
    name = 'blablabla';
    interval = 100;  //в мс
var
    TimerEnchant:TTimer;

procedure Init;
    begin
        TimerEnchant:=TTimer.Create(nil);
        TimerEnchant.OnTimer:=@enchant;
        TimerEnchant.enabled:=true;
        TimerEnchant.interval:=interval;
    end;

procedure Free;
    begin
        TimerEnchant.free;
    end;

procedure enchant;
    begin
        buf:=Hstr('суда пакет');
        SendToServerEx(name);
    end;

begin
end.

Я думаю что как то так) тут вроде пакет должен отправляться каждые 100 мили-секунд