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.