Text auslesen und auf Eingaben reagieren

[Grobi]

hab mal grad in der Code-Libary gesucht ... da hab ich folgendes gefunden:

Delphi-Quellcode:

{ 
Folgender Code übergeprüft eine Text Datei, ob ein bestimmtes Word 
schon vorhanden ist. Wenn nicht so wird dieses hinzugefügt. 
} 

procedure Form1.Button1Click(Sender: TObject); 
var 
  sl : TStringList; 
begin 
  sl := TStringList.Create; 
  try 
    sl.LoadFromFile('C:\Favoriten.txt'); 
    if pos('www.delphipraxis.net', sl.Text) = 0 then 
    begin 
      sl.Add('www.delphipraxis.net'); 
      sl.SaveToFile('C:\Favoriten.txt'); 
      end 
    else 
      ShowMessage('www.delphipraxis.net ist schon vorhanden.'); 
  finally 
    sl.Free; 
  end; 
end;

Damit müsste ich das ja eigentlich hinbekommen ... *ausprobier*