Изменение адреса во время выполнения программы

procedure TForm1.Button1Click(Sender: TObject);
const
  Addr1 = ($0D631048); 
  Addr2 = ($0CDCEECC);
begin
....
ReadProcessMemory(ProcHandle,ptr(Addr2),@lalal,4,rw);                   
....
WriteProcessMemory(ProcHandle,ptr(Addr1),@lalal,4,rw);
...
end;

procedure TForm1.Button1Click(Sender: TObject);
var addr1,addr2:longint;
begin
Addr1:=StrToIntDef('$'+edit1.text, 0);
Addr2:=StrToIntDef('$'+edit2.text, 0);
...
ReadProcessMemory(ProcHandle,ptr(Addr2),@lalal,4,rw);                   
...
WriteProcessMemory(ProcHandle,ptr(Addr1),@lalal,4,rw);
...
end;

function GetBasePointerOfModule(ProcessId: dword; Modulename: string): Integer;
var
  FSnapshotHandle: THandle;
  FModulEntry32: MODULEENTRY32;
  s: string;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessId);
  try
    if FSnapshotHandle <> INVALID_HANDLE_VALUE then
    begin
      FModulEntry32.dwSize := SizeOf(FModulEntry32);
      if Module32First(FSnapshotHandle, FModulEntry32) then
      begin
        repeat
          s := FModulEntry32.szModule;
          Form1.Edit5.Text:=s;
          if s = Modulename then
          begin
            Result := Integer(FModulEntry32.modBaseAddr);
            break;
          end;
        until (not Module32Next(FSnapshotHandle, FModulEntry32));
      end;
    end;
  finally
    closeHandle(FSnapshotHandle);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
WindowTitle: PChar;
Wnd : THandle;
ProcHandle : integer;
ProcessId : integer;
begin
WindowTitle:=PCHar(Edit2.Text);
Wnd := FindWindow(nil,WindowTitle);
GetWindowThreadProcessId(Wnd, @ProcessId);
ProcHandle := OpenProcess(PROCESS_ALL_ACCESS,false,ProcessId);
Edit1.Text:=IntToStr(GetBasePointerOfModule(ProcessId,'Flashplayer.exe'));
Edit3.Text:=IntToStr(ProcessId);
Edit4.Text:=WindowTitle;
end;