請問各位大大有關撿物call的問題?

請問各位大大，能幫忙看看嗎，我的撿物call那理有問題，一直無法撿物?

address := Pointer(W2I_Pick_ITEM_Call);
  P1 := aPParams^.Param1;
  P2 := aPParams^.Param2;
  asm
    pushad
    push p2  //物品類型
    push p1  //物品ID（SN）
    call address
    add esp,8
    popad
  end;

我也有想過要用發包的方法?但是一樣無法撿物，以下是我的發包寫法，不知那�埵陸暋D，請各位大大幫忙看一下謝謝!!

type  ///////撿物
  PickITEMbao = packed record
  len:dword;
  tou:word;
  Sn:DWORD;
  X1:WORD;
  end;

var
  ITEM_ID1 : cardinal;
  Type_ID :  cardinal;


    bao.len:=10;
    bao.tou:=06;
    bao.Sn:=ITEM_ID  ;
    bao.X1:=Type_ID;
    InjectFunc(@putong,@bao, SizeOf(bao));

怎麼都看不懂再寫甚麼@@"  我想學洗血簡單的外掛  有人可以教我嗎  感謝

撿物可以考慮發包，簡單快速
只是要自己走去道具身邊就是

補上我的撿物基址
W2I_Pick_ITEM_Call=$606A00;     //撿物call      62F510

謝謝大大的分亨，但還是無法撿物，一使用撿物就當掉了，以下是我修改後的源碼，請問可幫忙看一下嗎，是那邊出問題?
我的測試方法是在地方丟一個物品，在使用撿物call，不知撿物是不是這樣執行的，請好心的大大解答一下?
不知我P1和p2的解釋有無錯誤?


W2I_Pick_ITEM_Call=$606A00;     //撿物call   606A00    62F510     606A00
//撿取物品
procedure PickITEMCall(aPParams: PParams); Stdcall;
var
  address: Pointer;
  P1: DWORD;
  P2: DWORD;
begin
  address := Pointer(W2I_Pick_ITEM_Call);
  P1 := aPParams^.Param1;
  P2 := aPParams^.Param2;
  asm
    pushad
    push p2  //物品類型
    push p1  //物品ID
    mov edx,[$A5B90C]
    push eax
    push ecx
    mov ecx,[edx+$20]
    add ecx,$0ec
    call address
    popad
  end;
end;

procedure TForm1.PickITEM(Pick_Type,Pick_ITEM_ID: cardinal);
var
  aParams: TParams;
  aParamsSize: DWORD;
begin
  aParams.Param2 := Pick_Type;
  aParams.Param1 := Pick_ITEM_ID;
  aParamsSize := SizeOf(aParams);
  InjectFunc(@PickITEMCall, @aParams, aParamsSize);
end;

address := Pointer(W2I_Pick_ITEM_Call);
  P1 := aPParams^.Param1;
  P2 := aPParams^.Param2;
  asm
    pushad
    push p2  //物品類型
    push p1  //物品ID（SN）
    mov edx,[$A5B90C]
   push eax
   push ecx
   mov ecx,[edx+$20]
   add ecx,$0ec
    call address
   popad
  end;