[wrag]

попробуй
if createdir('c:\base\'+DateToStr(Date)) = true then
showmessage('sucsesfull');

правда я пытался сделать чтоб прога в моей дериктории создавала папку с названием месяца (числом) а уж в ней текстовый файл с названием "дата".тхт