Variable nicht "leer"?

[LoL]

Moin

Ich habe folgenden Code:

Delphi-Quellcode:

var sl_tmp : TStringlist;
    s : string;
begin
  sl_tmp := TStringlist.Create;

  while not(eof(datei)) do
  begin
    Readln(datei, s);
    sl_tmp.Add(s);
  end;
  
  FreeAndNil(sl_tmp);
end;

Ich rufe die procedure einmal auf. Wenn ich sie ein 2.mal aufrufe sind die Daten von dem vorigen aufruf noch drin!
Wie ist das möglich? Wird nicht bei FreeAndNil auch der Speicher freigegeben und geleert?