const
  Address = '$102654FC';  //Статический адрес, тот что отвечает за динамический адрес счетчика жизней

var
  GameScreen: HWND;
  ProcessIdentifier, ProcessHandle, Temp: Cardinal;
  Index: DWORD;
  Pointer, Difference: Integer;
  Buffer: Byte;
  Previous: Byte = 0;

begin
  GameScreen := FindWindow(nil, PChar('Unreal Tournament 2004'));
  if GameScreen <> 0 then
  begin
    GetWindowThreadProcessId(GameScreen, @ProcessIdentifier);
    ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessIdentifier);
    while True do
    begin
      ReadProcessMemory(ProcessHandle, Ptr(StrToInt(Address)), @Index, 4, Temp);  //Читаем значение с статического адреса
      Pointer := StrToInt('$' + IntToHex(Index + 1140, 16));  //Конструируем динамический адрес, к полученному из статического адреса значение прибавляем 1140 и переводим в Шестнадцатеричную систему счисления, тем самым получаем указатель на динамический адресс
      ReadProcessMemory(ProcessHandle, Ptr(Pointer), @Buffer, 1, Temp);  //Читаем значение с динамического адреса, в моем случаи это счетчик игровых жизней
      {Далее идет реакция на события счетчика жизней, в моем случаи просто записываем все что с ним происходит}
      Difference := Buffer - Previous;
      Previous := Buffer;
      if Difference = 0 then
      begin
        WriteLn(Russification('[' + IntToStr(Buffer) + ']' + ' Спокоен как удав...'));
      end
      else
      begin
        if Difference > 0 then
        begin
          WriteLn(Russification('[' + IntToStr(Buffer) + ']' + ' Повысил свои шансы на победу и готов к боли'));
        end
        else
        begin
          WriteLn(Russification('[' + IntToStr(Buffer) + ']' + ' Получил по шее'));
        end;
      end;
    end;
  end;
end.