Raise发现

procedure TForm2.Button1Click(Sender: TObject);
var
  MyWoKao: string;
  I: Integer;
begin
  try
    try
      I := 0;
      ShowMessage(IntToStr(10 div I));
    except
      raise;
    end;
    //这里的代码并没有被执行,raise后就直接跳到finally块中去了
    MyWoKao := '123';
  finally
    ShowMessage(MyWoKao);
  end;
end;