我要通过对话框打开一个txt文件，并把内容读到s中去。但这个txt可能有N个回车，我这个写法只能读到第一个回车前面的内容，后面的内容要怎么读？能否给点思路？
procedure TForm1.Button5Click(Sender: TObject);
var
i:Integer;
txtfile:TextFile;
s:string;
filename:string;
a:TStringList;
begin
if OpenDialog1.Execute then
begin
filename:=OpenDialog1.FileName;
AssignFile(txtfile,filename);
Reset(txtfile);
Readln(txtfile,s);
Memo4.Lines.Add(s);
//s:=StringReplace(s,chr(13)+chr(10),'',[rfReplaceAll]);

加个：while not eof(txtfile) do
就读出来了。

我最终目的是把文本内容读出来，然后分割，因此，我要把回车删掉，但是要这么写才能把内容读出来，有没有办法弄简单点？
procedure TForm1.Button5Click(Sender: TObject);
var
i:Integer;
txtfile:TextFile;
s:string;
filename:string;
a:TStringList;
begin
if OpenDialog1.Execute then
begin
filename:=OpenDialog1.FileName;
AssignFile(txtfile,filename);
Reset(txtfile);
try
while not Eof(txtfile) do
begin
Readln(txtfile,s);
Memo3.Lines.Add(s);
end;
finally
CloseFile(txtfile);
end;
s:=Memo3.Lines.Text;
s:=StringReplace(s,chr(13)+chr(10),'',[rfReplaceAll]);

TStringList.LoadFromFile