Source position: IdFTPServer.pas line 711
type TOnVerifyChecksum = procedure(
ASender: TIdFTPServerContext;
const AFileName: TIdFTPFileName;
const ACheckSum: string
) of object;