CopyStream

function CopyStream(

  const Source: AStream;

  const Destination: AStream;

  const SourceOffset: Int64 = 0;

  const DestinationOffset: Int64 = 0;

  const BlockSize: Integer = 0;

  const Count: Int64 = - 1;

  const ProgressCallback: TCopyProgressProcedure = Nil;

  const CopyFromBack: Boolean = False

):Int64; overload;

function CopyStream(

  const Source: AReaderEx;

  const Destination: AWriterEx;

  const BlockSize: Integer = 0;

  const CopyDataEvent: TCopyDataEvent = Nil

):Int64; overload;