Code nach finally wird nicht ausgeführt

[Luckie]

Ich arbeite gerade an meinem Exception Tutorial. Dafür habe ich folgendes Demo entwicklet:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  try
    i := 5;
    ShowMessage(IntToStr(i));
    exit;
  finally
    i := 0;
  end;
  ShowMessage(IntToStr(i));
end;

Jertzt musste ich zwar festellen, dass das letzte ShowMessage zwar kompiliert wird, es wird nur nicht aufgerufen beim Ausführen. Woran liegt das? Die Optimierung, habe ich schon deaktiviert.