function CheckListParseCapa(
    AListing: TIdStrings; 
    ADir: TIdFTPListItems; 
    var VFormat: String; 
    var VClass: TIdFTPListParseClass; 
    const ASysDescript: String; 
    const ADetails: Boolean = True
): boolean;