for Ch := 'a' to 'z' do
  begin
    if LongBool(DrivesMask and 1) then
    begin
      if _prop_UpperCharInBox then
        Control.Add('[-' + UpperCase(Ch) + '-]')
      else
        Control.Add('[-' + Ch + '-]');
      VolList.Add('');
    end;
    DrivesMask := DrivesMask shr 1;
  end;

  for Ch := 'a' to 'z' do
  begin
    if LongBool(DrivesMask and 1) then
    begin
      if _prop_UpperCharInBox then
        Control.Add('[-' + UpperCase(Ch) + '-]')
      else
        Control.Add('[-' + Ch + '-]');
    end;
    VolList.Add('');
    DrivesMask := DrivesMask shr 1;
  end;

  for Idx := 0 to Ctl.Count - 1 do
  begin
    D.VolList.Items[Idx] := dspc + GetLabelDisk(Ctl.Items[Idx][3], False);
    Vol := Ctl.Items[Idx] + D.VolList.Items[Idx];
    if WD < Ctl.Canvas.TextWidth(Vol) then
      WD := Ctl.Canvas.TextWidth(Vol);
  end;

  for Idx := 0 to Ctl.Count - 1 do
    if idx < D.VolList.Count then
    begin    
      D.VolList.Items[Idx] := dspc + GetLabelDisk(Ctl.Items[Idx][3], False);
      Vol := Ctl.Items[Idx] + D.VolList.Items[Idx];
      if WD < Ctl.Canvas.TextWidth(Vol) then
        WD := Ctl.Canvas.TextWidth(Vol);
    end;