Как добавить смещение?

procedure TForm1.Button1Click(Sender: TObject);
const
  N = 20; //Предполагаемое число символов в имени.
type
  //Смещения считаем только чере этот тип.
  TPByte       = ^Byte;
  //Эти типы для извлечения данных нужной длины.
  TPWord       = ^Word;
  TPDWord      = ^DWord;
 
  TCharArr     = array[0..N] of Char;
  TPCharArr    = ^TCharArr;
var
  //Адреса.
  addr0,
  addr1,
  addr2,
  addr3         : TPByte;
  //Значения.
  Data2         : DWord;
  Data3         : DWord;
 
  //Строковые данные. В зависимости от того как будем извлекать строку
  //применяем разные определения переменных.
  Data3PChar    : PChar; //Если известно, что имя хранится в виде нуль-терминальной строки.
  Data3Str      : String; //Для перевода имени в обыкновенный строковый тип.
  PData3CharArr : TPCharArr; //Если известно количество символов в имени.
begin
  //...
  //Адреса.
  addr0 := GetModuleBase(ProcessId, 'Game.dll');
  addr1 := TPByte( DWord(addr0) + $4F5874 );
  addr2 := TPByte( DWord(addr1) + $1C4 );
  addr3 := TPByte( DWord(addr2) + $34 );
 
  //Извлекаем значение, расположенное по адресу addr2:
  Data2 := TPDWord(addr2)^;
  Memo1.Lines.Add('Жизни: ' + IntToStr(Data2));
 
  //А вот что касается addr3 и Data3 - здесь вопрос - там имя должно лежать?
  //Чтобы его извлечь, надо знать сколько символов это имя занимает и какого
  //типа символы там используются - ANSI (что скорее всего) или UNICODE.
  //Следующий момент - возможно имя хранится в виде строки с терминальным нулём.
  //тогда тоже можно его (имя) вытащить.
 
  //Если имеем имя в виде ANSI строки с терминальным нулём, то извлекаем имя так:
  Data3PChar := PChar(addr2);
  Data3Str   := String(Data3PChar);
  Memo1.Lines.Add('Имя = "' + Data3Str + '"');
 
  //Если имя хранится без терминального нуля, то способ представленный выше
  //не отработает правильно. В этом случае надо знать сколько байтов занимает
  //запись имени. Это эксперементально можно попытаться узнать.
  //В этом случае так:
  PData3CharArr := TPCharArr(addr3);
  Data3Str := String(PData3CharArr^);
  Memo1.Lines.Add('Имя = "' + Data3Str + '"');
end;