wczytywanie z pliku

mam takie cos:
var
TF : TextFile;
S : String;
begin
AssignFile(TF, 'plik.txt');
Reset(TF);
repeat
Readln(TF, S);
Memo1.Lines.Add(S);
until S = 'koniec';
CloseFile(TF);

i mam taki problem, ze do Memo1 wcztywane jest wszystko do linijki zawierajacej tekst: "koniec" wraz z nia, a chodzi mi o to, zeby ten tekst do ktorego ma wczytywac nie ma byc wczytany (wczytane ma byc wszystko do wyrazu "koniec" ale on juz nie)

może po prostu :

repeat
Readln(TF, S);
if s='koniec' the break;
Memo1.Lines.Add(S);
until false;

jest jeszcze pętla while

Readln(TF, S); 
while s <> 'koniec' do
begin
  Memo1.Lines.Add(S);
  Readln(TF, S); 
end;

// Nawet for może być, ale po co ? [mf]