mehrere zeilen auslesen

[whiteshark]

Moin Leute,
ich bin gerade dabei das externe speichern und einlesen zu üben. mit einer Zeile aus einer Datei klappt es ja schon, aber wie kann ich mehrere Zeilen auslesen?

Delphi-Quellcode:

function einlesen;
var File:textfile;
var s:String;
begin
AssignFile(File, 'test.dat');
Reset(File);
Readln(File,s);
memo1.Lines[0] :=s;
CloseFile(File);

Delphi-Quellcode:

function speichern;
var File:textfile;
var s:string;
begin
AssignFile(File, 'test.dat');
Rewrite(File);
s:=memo1.lines[0];
writeln(File,s);
CloseFile(File);

Wie kann ich jetzt mehrere Zeilen auslesen?