procedure TForm1.FormCreate(Sender: TObject);
var
  reader: TStreamReader;
  line: String;
begin
  reader := TStreamReader.Create('新建文本文档.txt', TEncoding.Default);
  while not reader.EndOfStream do
  begin
   Memo1.Lines.Add (reader.ReadLine);
  end;
  reader.Free;

end;