TXT Datei auf String durchsuchen

[SaFu]

Hi

Hab jetzt eine lösung um eine txt Datei auf einen String zu durchsuchen aber irgenwie bekomme ich nie ein Ergebnis woran liegt das

Delphi-Quellcode:

procedure TForm7.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var sGridL: TStringList;
    sSuchen :string;
begin  sGridL := TStringList.Create;
 try
  if (Key = VK_Return) then
   begin
    sSuchen:= Edit2.Text;
    sGridL.LoadFromFile(Form1.ServerPfad + 'Liste\Einträge.txt');
     if pos(sSuchen, sGridL.Text) = 1 then
      begin
       ShowMessage(sSuchen + ' ist schon vorhanden');
      end
     else
      begin
       ShowMessage(sSuchen + ' Nicht vorhanden');
      end;
    end;
 finally
  sGridL.Free;
 end;
end;