Подмена пакета

[Roman32]

08 72 00 6F 00 6D 00 61 00 6E 00 33 00 34 00 00 00 ED D9 B9 37 39 94 6F 9B 00 00 00 00 00 00 00 00 01 00 00 00

над чтоб последние 4 байта удаляло,как замутить?01 00 00 00

[goodvin1709]

где там в пакете 01 00 00 00?

[Roman32]

Пакет именно такой длинны,но если я меняю он мне добавляет ещё 4 байта

Добавлено через 37 минут
if FromClient and (pck[1]=#$08) then
begin
pck[34]:=#$01;
pck[35]:=#$00;
pck[36]:=#$00;
pck[37]:=#$00;
pck[38]:='';
pck[39]:='';
pck[40]:='';
pck[41]:='';
end;
Вот чё надо.ток это не помогает дописывает в конце 4 байта,

if FromClient and (pck[1]=#$08) then
begin
pck[34]:=#$01;
pck[35]:=#$00;
pck[36]:=#$00;
pck[37]:=#$00;
pck[38]:=#$00;
pck[39]:=#$00;
pck[40]:=#$00;
pck[41]:=#$00;
end;Вот только так работает но мне надо именно чтоб блокировало 4 байта а не нули

Добавлено через 16 минут
http://s019.radikal.ru/i604/1210/91/2566472d3872.jpgЕсли не понел вот чё нннадо

[Yegor]

Roman32,

SetLength(pck, Length(pck) - 4);

[Roman32]

ООООО БОЛЬШОЕ СПАСИБО ВЫРУЧИЛЛ!!))))