Delphi - ForceDirectories

var sDir : string;

sDir := 'c:\apps\code\free';;

//if sDir path does not exist, create it!
if NOT DirectoryExists(sDir) then
 ForceDirectories(sDir);