[J-Fobos]

С этим у меня пока что проблем не возникало.

procedure UserInfo;
var
  i, CubicsSize, tmpCharObjectId: integer;
  tmpMyName, tmpMyTitle: string;    
begin
  tmpCharObjectId:=ReadD(18);   
  if CharObjectId=0 then CharObjectId:=tmpCharObjectId;
  case tmpCharObjectId of
  CharObjectId:
  begin  
   MyCorX:=ReadD(2);
   MyCorY:=ReadD(6);
   MyCorZ:=ReadD(10);
   i:=22;
   tmpMyName:=ReadS(i);             
   i:=i+48; 
   MaxHP:=ReadD(i);
   CurHP:=ReadD(i);
   MaxMP:=ReadD(i);
   CurMP:=ReadD(i);        
   i:= 552 + length(tmpMyName) * 2;
   tmpMyTitle:=ReadS(i);
   i:= i + 31;
   CubicsSize:= ReadH(i);
   i:= i + 28 + (CubicsSize * 2);       
   MaxCP:=ReadD(i);  
   CurCP:=ReadD(i);            
  end;      
 end;  
end;