很简单的实例，读写txt文件。

读txt文件

var
  Reader: TStreamReader;
begin
  Reader := TStreamReader.Create( 'txt路径',TEncoding.UTF8); //utf8 编码读写text1.txt

  edtTitle.Text := Reader.ReadLine();   //读取一行
  mmText.Text := Reader.ReadToEnd();    //读取全部
  Reader.Free(); //关闭和释放
end;

写txt文件

var
  Writer: TStreamWriter;
begin
  Writer := TStreamWriter.Create('txt路径',false, TEncoding.UTF8); //打开写的文件
  Writer.WriteLine(edtTitle.Text); //写一行
  Writer.Write(mmText.Text);   //写全部
  Writer.Free();
end;

来源：https://www.cnblogs.com/imlions/archive/2012/02/06/delphi2010tstream.html