A função SetVolumeLabel altera o nome de volume (label) do volume informado como parâmetro.

• Inclua na seção uses: Windows
• Coloque um botão no formulário.
• Programe o evento OnClick do botão como abaixo.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not SetVolumeLabel('C:\', 'NovoNome') then
    RaiseLastOSError;
end;

Para trocar o nome de volume da unidade corrente, informe nil como primeiro parâmetro da função: SetVolumeLabel(nil, 'NovoNome')