Подкаталоги проекта с названиями PICTURE и SOUND

[Warrado]

Image1->Picture->LoadFromFile("PICTURE/1.bmp");
PlaySound("SOUND/1.wav",0,SND_ASYNC);

Как создать соответствующие подкаталоги проекта с названиями PICTURE и SOUND, которые необходимо создать в основном каталоге проекта??

[Drugnir]

MkDir("SOUND");
MkDir("PICTURE");
//или
CreateDir("SOUND");
CreateDir("PICTURE");