нужна консультация:)

[0rfin]

Я думал readd читает из buf т.к writed пишет в buf.

Так пашет

begin
    if fromclient and (pck[1]=#$59) then
         begin
        x:=readd(2);y:=readd(6);z:=readd(10)+1000;hd:=readd(14);dt:=readd(18);
       
        sendmsg('newpck: '+strtohex(buf));//-- контроль
        end;  
            
        if fromclient and (pck[1]=#$56) and (pck[2]=#$0D) then //0D pobeda social
         begin 
         
           buf:=#$59;writed(x);writed(y);writed(z);writed(hd);writed(dt); 
           pck:='';
          SendToServer;
         end; 
end.

А почему то вот так нет?

begin
       if fromclient and (pck[1]=#$59) then
        begin
        buf:=pck; 
        z:=ReadD(10)+1000;
        end;
            
        if fromclient and (pck[1]=#$56) and (pck[2]=#$0D) then //0D pobeda social
         begin 
          WriteD(z,10);
          SendToServer;
         end; 
 
end.