怎么读取TextFile中的一段文字？

[SQL79]

如：
#签收人员#自己
#签收日期#好的
#邮件正文#似的咖啡合口呼按时地方开会恺撒大后方开会恺撒鉴定会开会士大夫撒旦咖啡碱哈深刻大会撒旦反抗计划开会。
撒旦反抗计划。
end.

一行一行读的话，可以把签收人员、签收日期正确地读出来，但是怎么能把邮件正文读出来呢（其中包括回车和换行）？

[票票飞扬]

举个例子:
procedure TForm1.Button1Click(Sender: TObject);
var sFile: String;
tFile:TextFile;
sStr,ss: String;
begin
if OpenDialog1.Execute then
begin
sFile := OpenDialog1.FileName;
AssignFile(tFile,sFile);
Reset(tFile);
ReadLn(tFile,sStr);
while POS('正文',sStr) = 0 do
ReadLn(tFile,sStr);
while not Eof(tFile) do
begin
ReadLn(tFile,ss);
sStr := sStr + #13+#10+ss;
end;
CloseFile(tFile);
Memo1.Text := Copy(sStr,11,Length(sStr));
end;
end;

[cobi]

如果正文与非正文之间是有标记分隔的，可以用pos（substr，str）的方法取得起始和终止位置，然后copy就可以了

[VSaber]

TStringList最方便了!
再根据#用pos处理吧!