Criar diretório

Quando crio um diretorio usando o comando Createdir(´c:\julio´) ele cria o diretorio com o icone padrão do windows, gostaria de saber como mudar o icone do diretorio via Delphi em tempo de execução.