if fromclient and (connectname=name) then begin case pck[1] of #$59: begin MyX:=Readd(2); MyY:=Readd(6); MyZ:=Readd(10); end; end; end;