파일이름으로 Pos함수를 써서 지우시면 될거 같은데요~~^^

function DeleteFolder(Sourcedir :string) : Boolean;
var
Pstr : array[0..256] of char; //널 종료 문자열로 바꾸기 위한 저정하기 위한 변수
Pstr2 : array[0..256] of char;
str : string[255]; //경로를 조립하기 위한 임시 문자열
str2 : string[255];
SearchRec : TsearchRec; //소스디렉토리를 검색하고자 할때 쓰이는 레코드(파스칼 구조체입니다)
nResult : integer; //찾았는지 못 찾았는지 여부
i, j : integer;
begin
Result := True;
try
if Sourcedir[Length(Sourcedir)] <> '\' then Sourcedir := Sourcedir + '\';


str := Sourcedir + '*.*';
FindFirst(str, faanyfile, SearchRec); //소스폴더를 검색한다.
nResult := 0; //검색결과 여부의 초기화

While nResult = 0 do //다음 화일을 찾아 루프를 반복
begin
inc(j);

if (SearchRec.name = '.') or (SearchRec.name = '..') then
begin //폴더가 자기자신이거나 상위폴더일 경우
nResult := FindNext(SearchRec); //검색 결과 화일을 찾으면 1이다.)
continue;
end;

if SearchRec.attr = fadirectory then //발견한 대상이 디렉토리이면
begin
Continue;
end;

//아래는 찾은것이 화일일 경우 복사를 하는 부분이다.
//완전 경로명으로 조립해 주어야 한다.
str := Sourcedir + SearchRec.name;
if Pos( '111', SearchRec.name ) > 0 then DeleteFile(str );

nResult := findnext(SearchRec); //검색여부

Result := True;
end; //While 문의 끝
except
Result := False;
end;
end;


위 함수가 돌아가는지는 테스트하지 않았습니다..

수정해서 쓰시고여....지우실 문자열을 함수인자로 바꿔서 사용하세요~