Ordnerrechte setzen?

[sK4r4]

das programm funktioniert leider nicht(gibt fehler zurück). Weiß nicht, ob es jetzt an mir liegt, aber vllt könnt mir jemand einfach irgendeinen quelltext schicken, wie man so etwas verwirklichen kann ^^

// Oh sorry hab den andren Link nicht gesehen. erstma durchlesen =D

//Also ich werde daraus net ganz schlau o_O gibt es nich einfach in mehr oder weniger vielen programmierzeilen nen code mit dem ich sowas in delphi machen kann?? =/