Bubblen Exceptions nach oben durch einen try-finally-Block?

[Luckie]

Das funktioniert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  try
  fs := TFileStream.Create('c:\test.txt', fmCreate);
  try

  finally
    FreeAndNil(fs);
  end;
  except
   on E: Exception do
     ShowMessage('foobar');
   end;
end;

Ich habe keine Schreibrechte auf c:\ und als Nachricht wird foobar aisgegeben.