Еще 1 вопросик

[Sashafaq]

Помогите пожалста )
мне нужно из 1 пакета сосчитать с 2 по 24 бит включительно и добавить к нему еще 4 бита
это нужно для того чтобы иг бот мог ходить у меня на серве
там пакет (MoveBackwardToLocation) от клиента немного отличается от пакета который бот отправляет ( последними 4 битами 01 00 00 00 что означает что я типо мышкой нажал)

я сделал вот так

const
b1= '01 00 00 00';

var
cursq :String; //координаты бота

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin
end;
begin
if FromClient and (pck[1]=#$01) then
begin
cursq:=pck;
pck:=cursq + hstr(b1);
end;
end.

но он то работает но он добавляет к пакету от клиента туже строку ))
помогите переделать немного

простите что такой примитивный вопрос но я долбался часа 4 чтобы написать такую шнягу и перепробывал много чего пользуясь примерами на этом сайте