Caixa Selecionar pasta (SelectDirectory) com o botão nova pasta?

Tenho uma aplicação criada em Delphi 7 que precisa localizar um diretório (pasta) na árvore de diretórios do Windows. Descobri que a função SelectDirectory na unit FileCtrl tem uma versão para win32, mas apenas com os botões OK e Cancelar. O que faço para exibir a mesma caixa com o botão Criar nova pasta