[Deffol]

блин ну считать можно вот так:

var
IDpck:integer;

begin
if fromclient and (pck[1]=#$32) then
IDpck:=ReadD(4);

а вот как вставить я не знаю)

Добавлено через 16 минут
вот так попробуй:

var
IDpck:integer;

begin
if fromclient and (pck[1]=#$32) then
IDpck:=ReadD(4);
begin
buf:=hstr('A1 57 5E 8F 00 00 00 01 00 01 00');
WriteD(IDpck);
buf:=buf+Hstr('01 00 00 00 00 00 00 00');
sendtoserver;
end;
end.

Добавлено через 1 минуту
я правда не уверен, но я пока не могу ниче придумать, писал в блокноте ничего от делфи нету

Добавлено через 28 минут
ну че, помогло?
а то я проверить сам не могу даже правилен ли синтаксис

Добавлено через 5 минут
slokky, блин ты куда пропал, давай пиши помогло или нет, а то меня щас за флуд забанят, мне жэ интересно ё моё