Internet Direct (Indy) Version 9.0.2 Beta
Example 1
    OpenWriteBuffer;
    try;
        WriteStream(AStream);
        // Close the write buffer and have Indy now transmit it
        CloseWriteBuffer;
    except
        // Clear what we had buffered, and disable write buffering
        CancelWriteBuffer;
        // Re-raise the exception so it is not masked
        raise;
    end;