delphi - コードの飛躍を引き起こす例外

Question

OpenSSL で D5 と Synaps を使用していますが、うまく機能しています。私はクラッシュを処理しようとしているので、一度に 1 つずつ試行して、意図的に不正なデータを入力しました。これまでのところ、誘発されたクラッシュは問題なく処理できましたが、ログイン パスワードを変更してログインを試みました。

gMajorFail:=False;
if not pop3.Login() then
begin
  gMajorFail:=True;
  raise EPOP3.Create('POP3 ERROR: '+IntToStr(pop3.Sock.LastError)+
                     ' When trying to Login to Account');
end;
if gMajorFail then GoTo HadFailure;

HadFailure-Label にジャンプする代わりに、プロシージャのコードの最後の行にジャンプします。

Try/Finally を使用してみました (そのため、Label to GoTo を使用しています) が、それでもコードの最後の行までスキップします。

どこが間違っているのか、どうすれば修正できますか?

ありがとう