Problemas al crear TXT y asignar un String

[lucasarts_18]

Holas:

Estoy trabajando con archivos TXT, tengo unas rutinas que verifican si el archivo exista o no, si no existe lo creo y le asigno un String,pues aquí sucede siempre el problema, me da un error I/O Errror 103. No obstante si el archivo ya se encuentra creado no tengo ningún problema.

Les dejo el código:

Código Delphi [-]
 chdir('C:\');
   if not FileExists('BOL_FECHA.txt') then
     FileCreate('BOL_FECHA.txt');
   AbrirArchivo('BOL_FECHA.txt');

Código Delphi [-]
 procedure TFrmInterfaz.AbrirArchivo(Nombre : ShortString);
 begin
   chdir('C:\');
   try
     assignfile(Archivo,Nombre);
     append(Archivo);
   except
     closefile(Archivo);
     ShowMessage('Se ha producido un error al intentar abrir el archivo');
   end;
 end;
 

 procedure TFrmInterfaz.CerrarArchivo(Nombre : ShortString);
 begin
   closefile(Archivo);
 end;

Trabajo con Delphi 7...
Gracias anticipadas al que pueda brindarme una ayuda

Saludos