Source position: IdFTPServer.pas line 710
type TOnCacheChecksum = procedure(
ASender: TIdFTPServerContext;
const AFileName: TIdFTPFileName;
var VCheckSum: string
) of object;