Erro quando uso o Comando DeleteFile no server 2008

[Fernanda]

Pessoal, estou com um problema e gostaria de ajuda. Uso na minha aplicacao um comando DeleteFile. para excluir arquivos de uma pasta onde os Xml´s sao gravados. Segue a linha.

I := FindFirst(ClientDataSetempNFE.value+'\entradasaida\*.*', faAnyFile, SR);
   while I = 0 do begin if (SR.Attr and faDirectory) <> faDirectory then
    if not DeleteFile(ClientDataSetempNFE.value+'\entradasaida\' + SR.Name) then
    a:='Fechar o sistema e acessar novamente';
    //   ShowMessage('Fechar o sistema e acessar novamente.' + SR.Name);
   I := FindNext(SR);
   end;

 

Este processo funciona normalmente em varios servidores, porem quando uso o Server 2008 R2. ao passar nesta linha o sistema apresenta a Seguinte mensagem

 

Access Violation at address. Alguem ja passou por isto..