[mks]

да там на самом деле мой косяк, надо переделать слегка считывание CP,HP,MP таким образом:

procedure StatusUpdate;      
var 
  i: integer; 
begin 
  for i:=0 to ReadD(6)-1 do begin 
    case pck[i*8+10] of 
      #$09: CurHP:=ReadD(i*8+14); 
      #$0A: MaxHP:=ReadD(i*8+14); 
      #$0B: CurMP:=ReadD(i*8+14); 
      #$0C: MaxMP:=ReadD(i*8+14); 
      #$21: CurCP:=ReadD(i*8+14); 
      #$22: MaxCP:=ReadD(i*8+14); 
    end; 
  end; 
end; 

begin 
  if (ConnectName=Name) and FromServer then begin 
    case pck[1] of 
      #$0E: if (MyID=ReadD(2)) then StatusUpdate; 
    end; 
  end; 
end.