procedure WriteBinaryStream(const Section, Name: string; Value: TStream); function ReadBinaryStream(const Section, Name: string; Value: TStream): Integer;