TStringList.Find gibt nie True zurück

[Forlan]

Hallo zusammen..
Folgendes Problem:
Ich habe mir folgenden Quellcode überlegt, um zu prüfen ob eine Eingabe schon in meiner *.txt Datei vorhanden ist...

Delphi-Quellcode:

 List := TStringList.Create;
  if FileExists(ExtractFilePath(ParamStr(0))+'Words.txt') then
    begin
      List.LoadFromFile(ExtractFilePath(ParamStr(0))+'Words.txt');
      for j := 1 to List.Count-1 do
        begin
          k := j;
          if List.Find(Uppercase(tx),k) then
            begin
              ShowMessage('Wort bereits in Liste vorhanden!');
              break;
              List.Free;
              exit;
            end;
        end;
      try
        List.Free;
      finally

      end;
    end;

Jedoch wird nie ein Wort gefunden wenn es in der Datei vorhanden ist

Vielen Dank für euer Bemühen im vorraus