var
      CapturedException : Pointer;
  begin
      try
          raise Exception.Create('Error1');
      except
          CapturedException := ExceptAddr;
          TThread.Queue(TThread.CurrentThread, procedure begin
              raise Exception.CreateRes(CapturedException) at ReturnAddress;
          end);
      end;
  end;