var a:TStringList;
    s:string;
begin
  a:=tstringlist.Create;
  a.LoadFromFile('文件名称.txt');
  s:=a.Strings[5];         //读取第6行文字,行数从0开始
  richedit1.Lines.Add(s);  //显示文字
end;