procedure F;
   begin
     try
       G;
     except
       on E: Exception do
       begin
         Writeln(E.Message);
       end;
     end;
   end;

Example 4: Unwinding the stack frame.