Para los ficheros de texto Reset los abre solo para lectura, para poder escribir en ellos hay que utilizar Append.
Seria algo asi
Código:
procedure Bitacora();
var
Fichero: TextFile;
begin
AssignFile(Fichero, 'Prueba.txt');
if fileexists('Prueba.txt') then begin
Append(Fichero);
end else begin
Rewrite(Fichero);
end;
writeLn(Fichero,'cualquier accion');
CloseFile(Fichero);
end;
De todas fromas para tratar con archivos de texto tenemos la clase TStringList que los maneja de maravilla
Código:
procedure Bitacora();
begin
with TStringList.Create do
try
try
// Intentamos cargar el archivo, si no existe se genera una excepcion
// que atrapamos e ignoramos
LoadFromFile('d:\prueba.txt');
except end;
Add('Cualquier texto');
SaveToFile('d:\prueba.txt');
finally
Free;
end;
end;
Espero que te sirva