Problema ao escrever em arquivo

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.