Problema ao escrever em arquivo

[wagner_dev 0]

Estou com problema ao escrever em um arquivo, estou tendo uma exception.....se alguém puder me ajudar, o código segue abaixo.

 

if rbBackup.Checked then
 begin
   try
     try
       data:=DateTimeToStr(Now);
       data:=stringReplace(data, '/', '', [rfReplaceAll]);
       data:=stringReplace(data, ':', '', [rfReplaceAll]);
       data:=stringReplace(data, ' ',  '_', [rfReplaceAll]);
       Delete(data,5,2);
       ExtractStrings(['.'],[' '],PChar(edtEntrada1.Text),lista);
       AssignFile(arquivo,diretoriocorrente+'\temp.bat');
       Rewrite(arquivo);
       Writeln(arquivo,'@echo off');
       Writeln(arquivo,'set isc_user=SYSDBA');
       Writeln(arquivo,'set isc_password=Msol1000');
       WriteLn(arquivo, diretoriocorrente+'\GBAK -G -B -V "'+edtEntrada1.Text+' "'+lista.Strings[0]+'_'+data+'.'+lista.Strings[1]);
       Writeln(arquivo,'pause');
       if not ExecutarCMD(diretoriocorrente+'\temp.bat') then
         ShowMessage('Houve um erro ao executar o comando no prompt, provavelmente o arquivo temporario de execuçao nao esta sendo criado normalmente');
     finally
       CloseFile(arquivo);
       DeleteFile(diretoriocorrente+'\temp.bat');
     end;
   except
     ShowMessage('Houve um erro na criação do arquivo temporário');
   end;
 end;

 

desde já agradeço.

[bdexterholland 0]

E o exception tá rolando em qual linha? qual a mensagem do exception?