请给看看问题出在那里(20分)

var
Addressointer;
begin
Address:=Pointer($00475840);//当前声明地址
LifeAdd:=$00475841;//要跳的地址
H := FindWindow(nil, '潜艇大战 V3.0');
if H = 0 then
begin
Application.MessageBox('本程序只适用于潜艇大战 V3.0' + #13 + #13 + '请先运行潜艇大战 V3.0', '错误');
exit;
end;
try
begin
ThreadId := GetWindowThreadProcessId(H, @ProcessId);
H := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
asm
jmp LifeAdd
call address
end;
end;
except
begin
Application.MessageBox('错误！', '错误');
end;
end;
end;
//我想把地址$00475840的值放到$00475841，但是一运行就出现入口违规，地址 00475841 读 对于地址00475841 进程终止
帮忙看看该怎么解决，谢谢
分数不多，只有这么多了。