Изменение значения в памяти

[zotox]

Нужно изменить (на 43910011) все значения памяти где найдено к примеру: 43910045 (dword). Как это сделать?
Составлял давно такой код (подправлял готовый код точнее):

var
  ProcessID: DWord;
  ProcessHandle: THandle;
  Mbi: TMemoryBasicInformation;
  Addr: DWord;
  Value, val2, lo: DWord;
  I: Cardinal;
  Buf: PChar;
  BytesRead: DWord;
begin
  ProcessID := 8916;

  value := 43910045;
  val2 := 43910011;

  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID);

  if ProcessHandle <> 0 then
    try
      Addr := 0;

      while VirtualQueryEx(ProcessHandle, Pointer(Addr), Mbi, SizeOf(Mbi)) <> 0 do
       begin

         if (Mbi.State = MEM_COMMIT) and not ((Mbi.Protect and PAGE_GUARD) = PAGE_GUARD) then
         begin
           GetMem(Buf, Mbi.RegionSize);
           try
             if ReadProcessMemory(ProcessHandle, Mbi.BaseAddress, Buf,
               Mbi.RegionSize, BytesRead) then
              begin

                for I := 0 to BytesRead - SizeOf(Value) do
                 begin
                   if PDWord(@Buf[I])^ = Value then
                    begin
                      WriteLn('Value ' + IntToStr(Value) + ' found at ' +
                      IntToHex(Integer(Cardinal(Mbi.BaseAddress) + I), 8));

                      WriteProcessMemory(processhandle, pointer(IntToHex(Integer(Cardinal(Mbi.BaseAddress) + I), 8)), @val2, 4, lo);
                    end;
                 end;
           end
         else
           WriteLn('Failed to read process memory ' + IntToStr(GetLastError));
         finally
           FreeMem(Buf);
         end;
       end;

         Addr := Addr + Mbi.RegionSize;
     end;

   finally
        CloseHandle(ProcessHandle);
   end
 else
   WriteLn('Failed to open process');

 readln;
end.

Но он не работает, почему?

[Black Fregat]

Так в каком месте не работает? Не открывает процесс? Возможно, следует задать права поменьше, чем PROCESS_ALL_ACCESS

[zotox]

Вопрос решил сам (не правильно оказывается передавал адрес (куда писать) функции WriteProcessMemory)