[nixon232]

Код:

var
   t : TextFile;
  begin
    AssignFile(t,'FileName.txt');
    Rewrite(T);
    Writeln(T,Edit1.Yext);
   
    CloseFile(T);
  end;

Можно так

Код:

var 
  sl : TStringList;
  
begin
  sl := TStringList.Create;
  sl.LoadFromFile('FileName.txt');
 sl.add(edit.text);
  sl.SaveToFile('FileName.txt');
end;

По хорошему, нужно заключить в try.... finally