Result := RaiseFrame^.ExceptObject;
    RaiseFrame^.ExceptObject := nil;

var a: Exception;
procedure Test;
begin
  raise a;
end;
Button1Click
begin
  if Assigned(a) then Test;
  for k := 0 to 99999999999999999 do ;
  a := EMy.Create(a, b, c);
  Test;
end;

  FException := aValue;
  FVmi := TVirtualMethodInterceptor.Create(FException.ClassType);
  FVmi.OnBefore :=
    procedure (aInstance: TObject; aMethod: TRttiMethod; const aArgs: TArray<TValue>; out aDoInvoke: Boolean;
      out aResult: TValue)
    begin
      if aMethod.Name = 'FreeInstance' then
        aDoInvoke := False;
    end;
  FVmi.Proxify(FException);

procedure TForm7.Button1Click(Sender: TObject);
begin
  FTest := TLazy<TForm>.Create
  (
    function: TForm
    var
      k: Integer;
    begin
      for k := 0 to 1000000000 do
        ;
      raise MyException.Create('My Exception');
    end,
    True
  );
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
  FTest.Value.Show();
end;

procedure TForm7.FormDestroy(Sender: TObject);
begin
  FTest.Free();
end;