pomoc pri CreateDir

Dobrý deň,
potreboval by som pomôcť pri mojom začiatočníckom probléme.Používam príkaz CreateDir a ak dám za paramater presne špecifikovaný adresár, nie je problém, ak idem cez premennú, problém nastane. Ako by som obišiel skutočnosť, aby v parametre nemusela byť konštanta.
Vďaka za pomoc, prikladám vzorový kód.

neviem ako to funguje v delphi, ale ak ten súbor už existuje, tak by sa nemal vytvoriť
teda skús zakomentovať alebo odstrániť ten prvý if else prípadne pred vytváraním cez premennú priečinok zmazať

V prvom rade, podla dokumentacie, funkcia CreateDir vytvori zlozku v aktualnej zlozke. Ty ju ale vytvaras v zlozke C:\ Ono by to mozno aj vzalo, ale dalsia vec je, ze mozno nemas prava zapisovat do zlozky C: v danom uzivatelskom ucte ( mozes skusit spustit aplikaciu ako spravca, tak zistis, ci je chyba prave tu, ale ja si myslim, ze problem je to, co som spomenul prve ). Na vytvorenie zlozky niekde inde by som radsej pouzil funkciu ForceDirectories.
Dalej nespominas, aky to vlastne problem nastane. Nemozes skompilovat alebo je problem az po spusteni? Skusal som to prehnat fpc kompilerom a nemal som problem, skompilovalo to, cize ak mas problem s kompilaciou ( ze ti tam nechce zobrat premennu miesto konstanty ), skus toto:


Ak je problem az za behu, daj si v ShowMessage vypisat volanie funkcie IntToStr( GetLastError ) a napis sem jej obsah.

Ďakujem za Váš čas,
problém vzniká počas behu aplikácie,
výsledok IntToStr( GetLastError ) sa rovná nule, v mne známych helpoch sa píše iba o návratovej hodnote, ale nie o príčine falsu. Nevytvoril ani adresár, ktorý neexistoval.

Cize problem je az za behu? V tom pripade to je trocha cudne, ze toto funguje:


ale toto uz nie:


Ak si to ale skusal presne tak, ako mas napisane, tak to bude zrejme tak, ako spominal Jarrro - najprv prebehne kod CreateDir('c:\jjj') a potom nasledne CreateDir(New_dir), pricom tato zlozka uz vytvorena je, cize ti vrati false. Skus zmazat ten prvy CreateDir s konstantnou hodnotou.

// Co sa tyka funkcie GetLastError, len pre istotu pripomeniem, ze tu treba volat az po volani funkcie CreateDir, aby sa tam zobrazila chybova sprava, ktoru vyvolala tato funkcia ( ak vobec ). Ak si takto volal, potom v poriadku. Btw, skusil si aj miesto funkcie CreateDir volat funkciu FroceDirectories?

Problém vznikol mojim nepochopením príkazu CreateDir, ktorý vytvára adresár, ale iba jednej úrovne, použitím príkazu ForceDirectories, ktorý vytvára celú cestu, sa celý problém vyriešil.
Vďaka.