// Da unidade C:
SetVolumeLabel('c:\', 'NovoLabel');
// Da unidade atual:
SetVolumeLabel(nil, 'NovoLabel');