procedure ListDirectory(
    AContext: TIdFTPServerContextBase; 
    const APath: string; 
    ADirectoryListing: TIdFTPListOutput; 
    const ACmd: String; 
    const ASwitches: String
); virtual; abstract;