Und selbst wenn CreateDir einen Backslash am Ende erwartet (kann mich gar nicht daran erinnern), was spricht dann dagegen, diesen bei der Übergabe anzuhängen? Was die Kompo anzeigt, soll Dir doch egal sein.
Delphi-Quellcode:
if not CreateDir(IncludeTrailingPathDelimiter(DirectoryEdit1.Directory)) then
ShowMessage('Ordner kann nicht angelegt werden.');