Listo, muchas gracias por tu ayuda Neftalí, ya pude solucionar el problema, adjunto el código que me funciono por si a alguien mas le sirve:
Código Delphi
[-] if forcedirectories(P) then
ShowMessage('Nuevo directorio creado') else
ShowMessage('Fallo al crear directorio nuevo, error : '+ IntToStr(GetLastError));