Source position: IdFTPServer.pas line 705
type TOnStoreFileEvent = procedure(
ASender: TIdFTPServerContext;
const AFileName: TIdFTPFileName;
AAppend: Boolean;
var VStream: TStream
) of object;