Поиск адреса в памяти процесса и изменение нескольких байт по этому адресу

TYPE1: array[1..2] of byte = ($31,$36);

procedure start_func(process_name:PCHAR;Address:integer;buf: array of byte;NumberOfBytes:integer);
var
ProcessId: integer;
ThreadId: integer;
HandleWindow: Integer;
write: NativeUint;
WindowName:HWND;
begin
WindowName := FindWindow(nil,process_name);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
WriteProcessMemory(HandleWindow,Pointer(address), @buf, NumberOfBytes, write);
end;

start_func('тут окно',$1567C427,TYPE1,2);

Function WriteByte(Address: Cardinal;ChangeValues: dword;Size:NativeUint) : boolean;
var
PidHandle: integer;
PidID: integer;
Written:NativeUint;
Begin
Result := false;
 PidID:=GetProcessIDExt('Game.exe');
 if PidID>0 then
  Begin
    PidHandle:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ or PROCESS_VM_OPERATION
    or PROCESS_VM_WRITE,False,PidId);
    Result := WriteProcessMemory(PidHandle, Pointer(Address), @ChangeValues, Size, Written);
    Closehandle(PidHandle);
  End;
End;