[bazoooka]

const
part='01 00 00 00 03 1B 01 10 E0 02 00 00 01 00 00 00 00 00 00 00 03 1B 01 10 E0 02 00 00 01 00 00 00 00 00 00 00';
begin
buf:=#$37;
WriteD(ReadD(10));
buf:=buf+HStr(part);
SendtoServer;
end.

Спасибо форуму , добавил строчку на условие пакета If FromServer and (pck(1)=#$06) then begin и спам прекратился.
Тему можно закрывать .