delphi反跟踪

你在Button1Click里面的Test()这行下断点.
按F8跟踪会显示完对话框就会退出.其他情况显示完对话框后正常执行.
procedure KillMe();
begin
Application.Terminate();
end;

procedure Test();
var
Msg : String;
begin
msg := '你好啊';
ShowMessage(Msg);
asm
mov eax, [ebp + 4]
mov ebx, [eax]
and ebx, $FF
sub ebx, $CC
jne @def
add eax,5
mov [ebp + 4], eax
@def:
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Test();
asm
jmp @def
nop
nop
nop
nop
call KillMe
@def:
end;
end;