[shamos]

Почему не работает:

PHP код:

Объявил:
var MyX, MyY, MyZ : Integer;

const name = 'name'

При каждом пакете:
begin
   if fromclient and (connectname=name) then
   begin
      case pck[1] of
         #$59:
         begin
            MyX:=Readd(2);
            MyY:=Readd(6);
            MyZ:=Readd(10);
            sendMSG(IntToStr(MyX) + ' ' + IntToStr(MyY) + ' ' + IntToStr(MyZ));
         end;
      end;
   end;  
end.