SomeObject:= TSomeObject.Create;
try
  try
    SomeObject.DoSomething('Some Text');
  except
    on E: Exception do begin
      ShowMessage(E.Message);
    end;
  end;
finally
  SomeObject.Free;
end;