Archivos de Texto y binario (manejar)

[[seoane]]

Para los ficheros de texto Reset los abre solo para lectura, para poder escribir en ellos hay que utilizar Append.

Seria algo asi

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

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