Source position: StreamUtils.pas line 193
procedure StreamPutShortString(
Stream: TStream;
const Text: ShortString;
MaxCount: Integer = 0
);