Source position: IdFTPServer.pas line 709
type TOnCheckSumFile = procedure(
ASender: TIdFTPServerContext;
const AFileName: TIdFTPFileName;
var VStream: TStream
) of object;