[wimax]

бля написать чтоли трудно?

procedure Readcordinates;
begin
if (readD(2)=PPobjid) then begin ppx:=ReadD(6); ppy:=ReadD(10); ppz:=ReadD(14); end;
end;
begin
if FromServer then
case pck[1] of
#$79: Readcordinates;
end.