[DeOne]

Проблема решена.

Для гугла:
var files:TStrings;
......
files := TStringList.Create;
ScanDir(ExtractFilePath(ParamStr(0))+'имя папки рядом с прогой','*.*', files);
files.Delete(0);