TOnSiteUTIME

type TOnSiteUTIME = procedure(

  ASender: TIdFTPServerContext;

  const AFileName: TIdFTPFileName;

  var VLastAccessTime: TDateTime;

  var VLastModTime: TDateTime;

  var VCreateDate: TDateTime;

  var VAUth: Boolean

) of object;