Acceso denegado al crear un fichero de texto

[DarkByte]

Intenta usar las etiquetas [ Delphi ] y [ /Delphi ] (sin espacios). Voy a volver a escribir el código para que se vea mejor tu código para buscar el fallo

Código Delphi [-]
procedure GuardarFicheroOut(Registro : String);
 Var
   Fichero : TextFile;
 Begin
   AssignFile(Fichero,'pepe.txt');
   Try
     Append(Fichero);
   Except
     Rewrite(Fichero);
   End;
   Try
     Write(Fichero, Registro);
     Writeln(Fichero,'');
   Finally
     CloseFile(Fichero);
   End;
 End;

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
 begin
    GuardarFicheroOut('Uno');
    GuardarFicheroOut('Dos');
    GuardarFicheroOut('Tres');
 end;