procedure SaveStreamToStoreFile(const StoreName: String; const FileName: String; SourceStream: TStream)