关于地址跳转和赋值的问题(10分)

procedure Tfrm_Set.Button1Click(Sender: TObject);
var
Address,addfy,addsointer;
begin
Address:=Pointer($00452a36);
Adds:=Pointer($00452a37);
Addfy:=Pointer($007e9f00);
asm
pushad
jmp addfy
LEA ESI,DWORD PTR DS:[EDX+4]
mov dword ptr ds:[$007e9f02],edx
jmp adds
Call Address;
popad
end;
end;
我想从地址$00452a36跳到地址$007e9f00，然后给edx 赋值$007e9f02,最后跳回到地址$00452a37，这么写对吗？