Data commit

Task/Exceptions/Delphi/exceptions-1.delphi

@@ -0,0 +1,4 @@
+procedure test;
+begin
+  raise Exception.Create('Sample Exception');
+end;

Task/Exceptions/Delphi/exceptions-2.delphi

@@ -0,0 +1,9 @@
+procedure test2;
+begin
+  try
+    test;
+  except
+    ShowMessage(Exception(ExceptObject).Message); // Showing exception message
+    raise; // Rethrowing
+  end;
+end;

Task/Exceptions/Delphi/exceptions-3.delphi

@@ -0,0 +1,8 @@
+procedure test3;
+begin
+  try
+    test2;
+  finally
+    ShowMessage('test3 finally');
+  end;
+end;