Fórum Arquivo Texto #321134

var
  Texto: TStringList;
...
  Texto := TStringList.Create;
  try
    Texto.LoadFromFile(´seu\arquivo\texto.txt´);

    // insere uma nova primeira linha
    // a antiga primeira linha será a segunda
    Texto.Lines.Insert(0, ´Nova primeira linha´);

    // troca a primeira linha
    Texto.Lines[0] := ´Outra primeira linha´;

    Texto.SaveToFile(´seu\arquivo\texto.txt´);
  finally
    Texto.Free;
  end;
...