delphi中如何读取一个文本中的数据

f: Textfile;
str: string;
begin
AssignFile(f, 'unit.dat');
Reset(f);
Readln(f,str);
lst1.Items.Add (str) ;
CloseFile(f);

end；

只显示第一行为什么

procedure TForm1.Button1Click(Sender: TObject);
var
mylist:TStringlist;
begin
if fileexists('c:\test.txt') then
begin
mylist:=TStringlist.Create;
mylist.LoadFromFile('c:\test.txt');{读文件到mylist}
listbox1.Items:=mylist;
end;
end;

lst1.Items.LoadFromFile();