помагите нубу

[dyh9l]

begin
if (pck=Hstr('пакет')) then
    begin
    pck[8]:=#$тут менять;
    pck[9]:=#$Тут тоже менять;
    buf:=pck;
    SendToServer;
    end;
end.

наверно будет работать не проверял)