[NLObP]

Эта процедура одинаково работает на C4 и IL

var
 MyID, CurHP, MaxHP : integer;

procedure StatsUpdate;
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);
    end;
  end;
end;

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