function DeleteVolumeName(ADrive: string): Boolean;
begin
  Result := Windows.SetVolumeLabel(PChar(ADrive), '');
end;