function CheckListParse(
    AListing: TIdStrings; 
    ADir: TIdFTPListItems; 
    var AFormat: String; 
    const ASysDescript: String = ''; 
    const ADetails: Boolean = True
): boolean;