Prüfen, ob ein bestimmtes Wort in einer Textdatei vorkommt

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('c:favoriten.txt');
    if pos('www.delphi-treff.de', sl.Text) = 0 then
    begin
      sl.Add('www.delphi-treff.de');
      sl.SaveToFile('c:favoriten.txt');
    end
    else
      ShowMessage('www.delphi-treff.de ist schon vorhanden.');
  finally
    sl.Free;
  end;
end;