Fórum Erro rewrite() #484891

procedure TfrmIBGE.IniciarArquivo(vpNomeArquivo : String);
begin
viNomeArq := viCaminho + vpNomeArquivo+'.TXT';
viNomeArqAnterior := viCaminho + vpNomeArquivo+'_OLD.TXT';

AssignFile(viArquivo, viNomeArq);
if FileExists(viNomeArq) then
begin
DeleteFile(PChar(viNomeArq));
Rewrite(viArquivo);
end
else
Rewrite(viArquivo);
end;


Olá pessoal estou com um problema aqui ao executar esta rotina, quando passa pela segunda as vez da erro no rewrite(viArquivo),
após passar pelo DeleteFile() logo acima .

Alguém pode me ajudar ?