Fórum Apagar um arquivo #228004

Pessoal eu de novo.

Tenho que apagar alguns arquivos que são criados dentro de um diretório
uso a seguinte função

ShellExecute(0,nil,´Deltree´,´ /y c:\teste\*.*´ ,nil,sw_hide);
funciona normal mas no Xp não consegue deletar esse arquivos .
tentei tambem o seguinte

var
SR: TSearchRec;
I: integer;
begin
I := FindFirst(´c:\Teste\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then
if not DeleteFile(´c:\Teste\´ + SR.Name) then
ShowMessage(´Não consegui excluir c:\Teste\´ + SR.Name);
I := FindNext(SR);
end;
e ele não consegue apagar dois aquivos pois ja foram carregados.

Obrigado pela ajuda