Write is a Procedure, reintroduced in
TIdStream, to implement support for String-based output to the stream using the values in AData. Write also performs additional error checking to ensure that the length of AData is not zero before writing the values to the stream.