Get Error Object

[KostasR 1]

    rsUpdateLicence.PUT(
        procedure (AContent: TMemoryStream)
        var LJSONObject: TJSONObject;
            BirthDateStr, FormattedDate: string;
        begin
          JSONValueToStream(LJSONObject, AContent);

        end,

        procedure (AResponse: TStream)
        var
          LResponse: TJSONObject;
        begin
          LResponse := StreamToJSONValue(AResponse) as TJSONObject;
          try
            if Assigned(LResponse) then
            begin
            begin
              LicenseRespose := LResponse.ToRecord<TLicenseRespose>();
              oResult := WriteData(LicenseRespose);

            end;
          finally
            LResponse.Free;
          end;
        end,

        procedure (AErr: Exception)
        begin
          ShowMessage('Error: ' + AErr.Message);
          // How can I get this error-object?

        end);

 

How can I receive this error-object for error-handling in this method, see PostMan Image?