TOnSiteCHOWN

type TOnSiteCHOWN = procedure(

  ASender: TIdFTPServerContext;

  var AOwner: string;

  var AGroup: string;

  const AFileName: TIdFTPFileName;

  var VAUth: Boolean

) of object;