var DL: TDrivesList;
    SL: TStringListUTF8;
    Ind: Byte;