读文本，没办法一步到位吧？只能通过Memo来实现，先放置一个Memo组件，设置其为隐藏，并且不要让它自动转行，即WrodWrap属性设为False，这里必须要设，否则句子过长自动换行后，Memo会把它当成两行处理，然后把文件通过Memo1.Lines.LoadFromFile('文件名')载入。然后对这个Memo进行操作。
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Memo1.Lines.Strings[0];//固定读取第一行
Memo1.Lines.Delete(0);//把第一行删掉，让下面一行成为第一行
end;