[ddv122]

El Scorpio, спасибо
Все разобрался

Код:

{
AnsiString DirPath = Edit1->Text;
TStringList* ToDel = new TStringList();
ToDel->LoadFromFile("Spisok.txt");
AnsiString ObjectName;
for (int i = ToDel ->Count-1; i >= 0; i--)
{
   ObjectName = DirPath+ToDel->Strings[i];
   if (DirectoryExists) 
      RemoveDir (ObjectName);
   (FileExists); 
      DeleteFile (ObjectName);
      }
delete ToDel;
}

А возможно ли ещё сделать удаление файлов по маске?*.lnk к примеру