问个Delphi关于SEH的问题

先看代码
Delphi(Pascal) code:

function ExceptionProc(pExcept:PExceptionRecord;
pFrame:Pointer;
pContxt:PContext;
pDispatcher:Pointer):Integer;stdcall;
begin
ShowMessage('1111');

Result:=0;
end;


procedure TForm1.Button1Click(Sender: TObject);
asm
//try

push ebp
push offset ExceptionProc
push fs:[0]
mov fs:[0],esp

xor edx,edx
mov [edx],1

pop dword ptr fs:[0]
add esp,4
pop ebp
end;



异常能捕获到了,但是一直弹出对话框呀.

希望有朋友能帮我讲解下,貌似有人说把pContext指向下一个.但是不是很明白希望大牛指导.
附上Delphi自己的trye的代码
Unit1.pas.39: Try
00452704 33D2            xor edx,edx
00452706 55              push ebp
00452707 6821274500      push $00452721
0045270C 64FF32          push dword ptr fs:[edx]
0045270F 648922          mov fs:[edx],esp

Unit1.pas.40: a.Show;
00452712 E811B3FFFF      call TCustomForm.Show
00452717 33C0            xor eax,eax
00452719 5A              pop edx
0045271A 59&