Delphi-Quellcode:
SetFileAttributes(PChar(Edit1.Text + '\Pics'), FILE_ATTRIBUTE_DIRECTORY);
// oder
SetFileAttributes(PChar(Edit1.Text + '\Pics'),
GetFileAttributes(PChar(Edit1.Text + '\Pics'), A) and not FILE_ATTRIBUTE_READONLY);
Außerdem was macht DelDir und ist das Verzeichnis auch leer?
(z.B. können mit RemoveDirectory nur leere Verzeichnisse gelöscht werden)