[goodvin1709]

я именно немогу зделать переадресацыю когда пакет приходит(

Добавлено через 27 минут
я понел моно вроде так

const = 'Name' ;
var
a : integer
begin
a:=1
if FromServer and (ConnectName='Name') and (pck = HStr('64 3F 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 03 00 00 00 87 16 00 00') then
begin
b:=A+1 ;
sendmsg('Заточкено в суме з +7 на +8');
sendmsg(vartostr(b));
end;
end;
end.

Добавлено через 19 часов 2 минуты
begin
if FromClient and (ConnectName='ник')
and (pck=HStr('пакет который пришел з инфой заточки')) then
begin
Вот тут я незнаю как зделать))
end;
end.

вот моно както так

Добавлено через 5 минут
dyh9l, а ты был прав если по паскалю то можно
Inc(x)
зделать
x:=x+1;