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

[3_of_8]

Delphi-Quellcode:

with TSomeClass.Create do
try
  SomeMethod;
  SomeMethodThatThrows; //wirft Exception!
except
  on E:Exception do
    ShowmEssage(E.Message);
end;
Free;

So würd ich das machen.