[[maeyanes]]

Necesitas manejar los archivos de texto de esa manera?

Por que también puedes usar la clase TStringList para hacer lo que necesitas.

Código Delphi [-]
var
  ATextFile: TStringList;

begin
  ATextFile := TStringList;
  try
    if FileExists('bol_fecha.txt') then
      ATextFile.LoadFromFile('bol_fecha.txt');
    // Aquí manipulas el archivo por ejemplo:
    ATextFile.Add('Una línea nueva al final');
    ATextFile.Insert(3, 'Insertando una línea en la 4ta. pocisión');
    ATextFile[0] := 'Cambiando el contenido de la primera línea');
    ATextFile.Delete(2); // Eliminando la 3ra. fila
    ATextFile.SaveToFile('bol_fecha.txt')
  finally
    ATextFile.Free
  end
end;