Source position: flcStreams.pas line 892
type TCopyProgressProcedure = procedure(
const Source: AStream;
const Destination: AStream;
const BytesCopied: Int64;
var Abort: Boolean
);